Use create.calendar with your list of holidays.
create.calendar(
name = "MyCalendar", holidays = holidays, weekdays = c("sunday", "saturday"),
adjust.from = adjust.next, adjust.to = adjust.previous
)what should be considered:
MyCalendar.
The calendar name is used in all bizdays functions to
specify which calendar has to be used.holidays is a vector of
dates (mostly used R’s date-time objects: Date,
POSIX.ct and POSIX.lt) or a character vector
with and ISO formatted date ("1976-07-12").bizdays function has
from and to arguments that define the interval
which the amount of days has to be computed. Once from
falls in a nonworking day it is moved to the first working day after it.
Similarly, to is adjusted to the first working day before
this date.Now you can call bizdays functions passing the calendar name.
## [1] TRUE
## [1] "2016-09-08"
## [1] 66
Of course you can assign the calendar to a variable directly and pass this variable to bizdays functions
cal <- create.calendar(
name = "MyCalendar", holidays = holidays, weekdays = c("sunday", "saturday"),
adjust.from = adjust.next, adjust.to = adjust.previous
)
is.bizday("2016-07-12", cal)## [1] TRUE
But this is not expected to work that way.
Why define weekdays?
I am frequently asked Why do I have to define weekdays? or even Shouldn’t it be
weekenddaysinstead?.The reason I created
weekdays: I want to provide a way to compute business days accordingly to any definition or satisfying any needs. In my world, the financial industry, weekends are nonworking days, but for those who work with events, for example, mondays migth be nonworking days.
weekdaysdefaults toNULLbecause I wanted theCalendar()call returned an Actual calendar.
You can define whatever calendar you want, for example, a calendar without holidays where only weekdays are nonworking days.
define only weekdays to weekend days.
from_dates <- "2013-01-01"
to_dates <- seq(as.Date("2013-12-31"), as.Date("2020-12-31"), by = "years")
bizdays(from_dates, to_dates, "WeekendsOnly")## [1] 260 521 782 1043 1303 1564 1825 2087
create.calendar(name = "EveryMonday", weekdays = "monday")
from_dates <- "2013-01-01"
to_dates <- seq(as.Date("2013-12-31"), as.Date("2020-12-31"), by = "years")
bizdays(from_dates, to_dates, "EveryMonday")## [1] 312 625 938 1252 1565 1877 2190 2504