data(holidaysANBIMA)
cal <- Calendar(holidaysANBIMA)
bizdays("2013-01-02", "2013-01-31", cal)
# Once you have a default calendar set
bizdays.options$set(default.calendar=cal)
bizdays("2013-01-02", "2013-01-31")
Run the code above in your browser using DataLab