删除不必要的日期

Question

我有2017年的日期列表，我必须删除日期，不必计算

days_2016 <- seq(start_day, end_day, by="days")
holidays <- seq(start_h, end_h, by="days")

work_days <-

如何在没有假期的情况下制作名单？

Answer 1

就像docendo所说：

days_2016 <- seq(as.Date("2016-01-01"), as.Date("2016-12-31"), by = "days")
holidays  <- seq(as.Date("2016-05-01"), as.Date("2016-06-30"), by = "days")
workdays <- days_2016[!days_2016 %in% holidays]