R bizdays 让它工作起来很麻烦

Question

我正在尝试使用 bizdays 包生成一个向量，其中包含两个日期之间的公交日。

fer = as.data.frame(as.Date(fer[1:938]))

#Define default calendar
bizdays.options$set(default.calendar=fer)

dt1 = as.Date(Sys.Date())
dt2 = as.Date(Sys.Date()-(365*10)) #sample 10 year window

#Create date vector
datas = bizseq(dt2, dt1)

我收到这个错误："Error in bizseq.Date(dt2, dt1) : Given date out of range." bizdays 等人的任何功能都具有相同的行为。

有什么想法吗？

Answer 1

如果fer是假期，你可以试试：

bizdays.options$set(default.calendar=Calendar(holidays=fer))

Answer 2

我遇到了类似的问题，但无法将已接受的答案应用到我的案例中。对我有用的是确保向量 holidays 中的第一个和最后一个假期至少涵盖（或超过）提供给 bizdays() 的日期范围：

   library(bizdays)

这个有效（from_date 和 to_date 都在 holidays 提供的第一个和最后一个假期内）：

   holidays <- c("2016-08-10", "2016-08-13")

    from_date <- "2016-08-11"
    to_date <- "2016-08-12"

    cal <- Calendar(holidays, weekdays=c('sunday', 'saturday'))
    bizdays(from_date, to_date, cal)

    #1

这不起作用（to_date 在 holidays 的最后一个假期之外）：

    holidays <- c("2016-08-10", "2016-08-11")

    from_date <- "2016-08-11"
    to_date <- "2016-08-12"

    cal <- Calendar(holidays, weekdays=c('sunday', 'saturday'))
    bizdays(from_date, to_date, cal)

   # Error in bizdays.Date(from, to, cal) : Given date out of range.

R bizdays 让它工作起来很麻烦

R bizdays trouble making it work

r

date

bizdays