#' Season abbreviation
#'
#' @return a list with season abbreviations and their corresponding months: list("annual"=1:12, "djf"=c(12,1,2),...)
#'
#' @export season.abb
season.abb <- function() {
#season <- list(1:12,c(12,1,2),1:3,2:4,3:5,4:6,5:7,6:8,7:9,8:10,9:11,10:12,
# c(11,12,1),c(10:12,1:3),4:9,c(11,12,1,2),6:9,5:9,
# c(12,1,2,3),c(12,1,2,3,4),c(11,12,1,2,3,4),c(11,12,1,2,3,4,5),
# c(10,11,12,1,2,3,4),c(11,12,1,2,3))
#season.abb <- c('annual','djf','jfm','fma','mam','amj',
# 'mjj','jja','jas','aso',
# 'son','ond','ndj','ondjfm','amjjas',
# 'ndjf','jjas','mjjas',
# 'djfm','djfma','ndjfma',
# 'ndjfmam','ondjfma','ndjfm')
letters.months <- tolower(substr(month.abb, 1, 1))
seas <- function(m=12, length=3) {
mon <- seq(m, m+length-1, 1)
mon[mon>12] <- mon[mon>12]-12
return(mon)
}
season <- c(lapply(seq(1,12), seas, length=2),
lapply(seq(1,12), seas, length=3),
lapply(seq(1,12), seas, length=4),
lapply(seq(1,12), seas, length=5),
lapply(seq(1,12), seas, length=6),
lapply(seq(1,12), seas, length=7),
lapply(seq(1,12), seas, length=8),
lapply(seq(1,12), seas, length=9),
lapply(seq(1,12), seas, length=10),
lapply(seq(1,12), seas, length=11))
season.abb <- unlist(lapply(season, function(x) paste(letters.months[x],collapse="")))
season <- c(list(1:12), season)
season.abb <- c("annual", season.abb)
season.abb <- c(season.abb,toupper(season.abb))
season <- rep(season,2)
names(season) <- season.abb
return(season)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.