Проверяя результаты функции bizdays, я увидел, что у этой функции есть некоторые неожиданные результаты. Для расчетов я использовал:
Kalender <- create.calendar(name='MyCalendar',
weekdays=c('saturday', 'sunday'),
start.date = ymd("2019-12-28"),
end.date = ymd("2021-01-01"))
ts_begin <- seq(as.Date("2020-01-01"), length=13, by="1 month") - days(1)
NrDays <- numeric()
for (i in 1:12) {NrDays[i] =bizdays(ts_begin[i], ts_begin[i+1], Kalender)}
Без учета праздничных дней .... Ожидаются следующие результаты: январь: 23 февраля: 20, март: 22, апрель: 22, май: 21, июнь: 22, июль: 23, август: 22, сентябрь: 22, октябрь: 22, ноябрь: 22 и декабрь; 23
Вместо этого я получаю (от jan-de c): NrDays [1] 23 20 21 22 21 21 23 21 22 22 20 23
Результат, неравный ожидаемому: в марте (-1), июне (-1), августе (-1), ноябре (-2).
Есть предложения как это решить?