calendar.new | R Documentation |
Create a calendar
calendar.new()
belgiumCalendar<-calendar.new() calendar.fixedday(belgiumCalendar, 7, 21) calendar.holiday(belgiumCalendar, "NEWYEAR") calendar.holiday(belgiumCalendar, "CHRISTMAS") calendar.holiday(belgiumCalendar, "MAYDAY") calendar.holiday(belgiumCalendar, "EASTERMONDAY") calendar.holiday(belgiumCalendar, "WHITMONDAY") calendar.holiday(belgiumCalendar, "ASSUMPTION") calendar.holiday(belgiumCalendar, "ALLSAINTSDAY") calendar.holiday(belgiumCalendar, "ARMISTICE") calendar.singledate(belgiumCalendar, "2022-05-13") M<-td(12, c(1980,1), 120, groups = c(1,1,1,1,2,3,0), contrasts = FALSE) H<-htd(belgiumCalendar, 12, c(1980,1), 120, groups = c(1,1,1,1,1,2,0), contrasts = FALSE) MC<-td(4, c(1980,1), 120, groups = c(1,1,1,1,1,2,0), contrasts = TRUE) HC<-htd(belgiumCalendar, 4, c(1980,1), 120, groups = c(1,1,1,1,1,2,0), contrasts = TRUE) C12<-longTermMean(belgiumCalendar, 12) C4<-longTermMean(belgiumCalendar, 4) C12bis<-longTermMean(belgiumCalendar, 12, c(1,1,1,1,1,2,0)) C4bis<-longTermMean(belgiumCalendar, 4, c(1,1,1,1,1,2,0)) print(C12) print(C12bis)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.