Conversion to Japanese year style

Description

jyear calculates a year of the reign of an Emperor, i.e., “gengo”, which is widely used in official statistics and documents in Japan.

Usage

jyear(x, shift = FALSE, withAD = FALSE, ascii = FALSE)

Arguments

Details

Japan uses era systems, and on each emperor's reign it would constitute one era. The Japanese traditional era name is widely used in official statistics and documents instead of the Anno Domini system. Recently, the year is often written in traditional form with Christian year, e.g., H12 (2000), because Japanese year style without Christian one is confusing even for Japanese.

jyear calculates such Japanese year from the given Christian year. Is may be useful if the Japanese style is required in statistical graphics or documents.

Since jyear dose not take account of month and day, an unexpected output could be given for a particular year, during which an era changed to a new one. The shift option should be set manually as TRUE in the following period.

Value

character

Author(s)

Susumu Tanimura aruminat@gmail.com

Examples

jyear(2000,ascii=TRUE)
jyear(2000,withAD=TRUE,ascii=TRUE)
jyear(1989,ascii=TRUE)
jyear(1989,shift=TRUE,ascii=TRUE)

Results

R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(Nippon)
Loading required package: maptools
Loading required package: sp
Checking rgeos availability: TRUE
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/Nippon/jyear.Rd_%03d_medium.png", width=480, height=480)
> ### Name: jyear
> ### Title: Conversion to Japanese year style
> ### Aliases: jyear
> ### Keywords: Japanese language
> 
> ### ** Examples
> 
> jyear(2000,ascii=TRUE)
[1] "H12"
> jyear(2000,withAD=TRUE,ascii=TRUE)
[1] "H12(2000)"
> jyear(1989,ascii=TRUE)
[1] "H1"
> jyear(1989,shift=TRUE,ascii=TRUE)
[1] "S64"
> 
> 
> 
> 
> 
> dev.off()
null device 
          1 
>