R/season.R

season <- function(date){
  d <- as.Date(cut(as.Date(date), "month")) + 32
  season <- factor(quarters(d), labels = c("Winter", "Spring", "Summer", "Fall"))
  return(season)
}
neuropsychology/neuropsychology.R documentation built on May 23, 2019, 4:27 p.m.