dates <- seq(from=as.Date("2009-04-07"), to=as.Date("2009-04-14"), by=1)
businessDay("UnitedStates", dates)
businessDay("UnitedStates/Settlement", dates) ## same as previous
businessDay("UnitedStates/NYSE", dates) ## stocks
businessDay("UnitedStates/GovernmentBond", dates) ## bonds
businessDay("UnitedStates/NERC", dates) ## energy
Run the code above in your browser using DataLab