# NOT RUN {
easter <- NamedHoliday("Easter", days.before = 2, days.after = 1)
if (MaxWindowWidth(easter) == 4) {
print("That's the right answer!\n")
}
## This holiday lasts two days longer in 2005 than in 2004.
may18 <- DateRangeHoliday("May18",
start = as.Date(c("2004-05-17",
"2005-05-16")),
end = as.Date(c("2004-05-19",
"2005-05-20")))
if (MaxWindowWidth(may18) == 5) {
print("Right again!\n")
}
# }
Run the code above in your browser using DataLab