(Acest articol a fost publicat pentru prima dată pe Joe Roeși cu amabilitate a contribuit la R-bloggeri). (Puteți raporta problema legată de conținutul acestei pagini aici)
Doriți să vă distribuiți conținutul pe R-bloggeri? dați clic aici dacă aveți un blog, sau aici dacă nu aveți.
eră v0.5.0 este acum disponibil pe CRAN:
install.packages("era")
Această versiune minoră adaugă funcții pentru ordonarea cronologică (yr_sort()) vectorii anului:
# Forward-counting era: x <- yr(c(200, 100, 300), "CE") yr_earliest(x) #> # CE years: #> (1) 100 #> # Era: Common Era (CE): Gregorian years (365.2425 days), counted forwards from 0 yr_latest(x) #> # CE years : #> (1) 300 #> # Era: Common Era (CE): Gregorian years (365.2425 days), counted forwards from 0 yr_range(x) #> # CE years : #> (1) 100 300 #> # Era: Common Era (CE): Gregorian years (365.2425 days), counted forwards from 0 # Backward-counting era: y <- yr(c(200, 100, 300), "BCE") yr_earliest(y) #> # BCE years : #> (1) 300 #> # Era: Before Common Era (BCE): Gregorian years (365.2425 days), counted backwards from 1 yr_latest(y) #> # BCE years : #> (1) 100 #> # Era: Before Common Era (BCE): Gregorian years (365.2425 days), counted backwards from 1 yr_range(x) #> # CE years : #> (1) 100 300 #> # Era: Common Era (CE): Gregorian years (365.2425 days), counted forwards from 0
Și pentru calcularea valorilor lor extreme (yr_earliest(), yr_latest()și yr_range())
# Forward-counting era: x <- yr(c(200, 100, 300), "CE") yr_earliest(x) #> # CE years: #> (1) 100 #> # Era: Common Era (CE): Gregorian years (365.2425 days), counted forwards from 0 yr_latest(x) #> # CE years : #> (1) 300 #> # Era: Common Era (CE): Gregorian years (365.2425 days), counted forwards from 0 yr_range(x) #> # CE years : #> (1) 100 300 #> # Era: Common Era (CE): Gregorian years (365.2425 days), counted forwards from 0 # Backward-counting era: y <- yr(c(200, 100, 300), "BCE") yr_earliest(y) #> # BCE years : #> (1) 300 #> # Era: Before Common Era (BCE): Gregorian years (365.2425 days), counted backwards from 1 yr_latest(y) #> # BCE years : #> (1) 100 #> # Era: Before Common Era (BCE): Gregorian years (365.2425 days), counted backwards from 1 yr_range(x) #> # CE years : #> (1) 100 300 #> # Era: Common Era (CE): Gregorian years (365.2425 days), counted forwards from 0
În esență, acestea sunt toate wrapper-urile pentru funcțiile de bază (sort(), min(), max() şi range()) care sunt conștienți de direcționalitatea sistemului eră atașat vectorului: anii „CE” sunt numărați înainte, anii „BCE” sunt numărați înapoi etc. Am decis să le implementez ca funcții prefixate în loc de metodele S3 pentru yr vectori pentru că nu am vrut să surprind oamenii când au folosit de ex max() așteptând maximul numeric și a obținut în schimb cea mai recentă valoare cronologică.
Legături
