Вам нужно сделать два шага, чтобы найти решение:
- Создать последовательность дат, используя
seq.Date
- Используйте
wday
для вычисления дня неделии удалите все дни со значениями 1 (воскресенье) и 7 (суббота)
Код и результаты:
startdate <- as.Date("2011-01-03")
dates <- seq(startdate, by="1 day", length.out=15)
dates[wday(dates) != 1 & wday(dates) != 7]
[1] "2011-01-03" "2011-01-04" "2011-01-05" "2011-01-06" "2011-01-07"
[6] "2011-01-10" "2011-01-11" "2011-01-12" "2011-01-13" "2011-01-14"
[11] "2011-01-17"
PS.У вас будет два отдельных списка праздников в вашем регионе, и вы удалите их из списка.