# NOT RUN {
dts <- dates("01/01/98") + trunc(365 * runif(50))
table(is.weekend(dts))
.Holidays
# New Year Memorial Indepen. Labor day Thanksgiving Christmas
# 01/01/92 05/25/92 07/04/92 09/07/92 11/26/92 12/25/92
# NOTE: Only these 6 holidays from 1992 are defined by default!
# }
Run the code above in your browser using DataLab