R isBizday不工作并返回一个非S4对象错误

我不知道为什么我的函数isBizday不起作用。我得到的错误是：

isBizday（日期，holidayTSX（））中出错： 试图从不是S4对象的对象（类“日期”）获取插槽“数据”

我的代码：

Dates[isBizday(Dates, holidayTSX())]

我应该如何着手纠正这个错误

我的数据示例：

Dates<-structure(c(15340, 15340, 15340, 15340, 15340, 15340, 15340, 
15340, 15340, 15340, 15340, 15340, 15340, 15340, 15340, 15340, 
15340, 15340, 15340, 15340, 15340, 15340, 15340, 15340, 15340, 
15340, 15340, 15340, 15340, 15340, 15340, 15340, 15340, 15340, 
15340, 15340, 15340, 15340, 15340, 15340, 15340, 15340, 15340, 
15340, 15340, 15340, 15340, 15340, 15340, 15340, 15340, 15340, 
15340, 15340, 15340, 15340, 15340, 15340, 15340, 15340, 15340, 
15340, 15340, 15340, 15340, 15340, 15340, 15340, 15340, 15340, 
15340, 15340, 15340, 15340, 15340, 15340, 15340, 15340, 15340, 
15340, 15340, 15340, 15340, 15340, 15340, 15340, 15340, 15340, 
15340, 15340, 15340, 15340, 15340, 15340, 15340, 15340, 15341, 
15341, 15341, 15341, 15341, 15341, 15341, 15341, 15341, 15341, 
15341, 15341, 15341, 15341, 15341, 15341, 15341, 15341, 15341, 
15341, 15341, 15341, 15341, 15341, 15341, 15341, 15341, 15341, 
15341, 15341, 15341, 15341, 15341, 15341, 15341, 15341, 15341, 
15341, 15341, 15341, 15341, 15341, 15341, 15341, 15341, 15341, 
15341, 15341, 15341, 15341, 15341, 15341, 15341, 15341, 15341, 
15341, 15341, 15341, 15341, 15341, 15341, 15341, 15341, 15341, 
15341, 15341, 15341, 15341, 15341, 15341, 15341, 15341, 15341, 
15341, 15341, 15341, 15341, 15341, 15341, 15341, 15341, 15341, 
15341, 15341, 15341, 15341, 15341, 15341, 15341, 15341, 15341, 
15341, 15341, 15341, 15341, 15341, 15342, 15342, 15342, 15342, 
15342, 15342, 15342, 15342, 15342, 15342, 15342, 15342, 15342, 
15342, 15342, 15342, 15342, 15342, 15342, 15342, 15342, 15342, 
15342, 15342, 15342, 15342, 15342, 15342, 15342, 15342, 15342, 
15342, 15342, 15342, 15342, 15342, 15342, 15342, 15342, 15342, 
15342, 15342, 15342, 15342, 15342, 15342, 15342, 15342, 15342, 
15342, 15342, 15342, 15342, 15342, 15342, 15342, 15342, 15342, 
15342, 15342, 15342, 15342, 15342, 15342, 15342, 15342, 15342, 
15342, 15342, 15342, 15342, 15342, 15342, 15342, 15342, 15342, 
15342, 15342, 15342, 15342, 15342, 15342, 15342, 15342, 15342, 
15342, 15342, 15342, 15342, 15342, 15342, 15342, 15342, 15342, 
15342, 15342), class = "Date")

---

Dates您可能在谈论
timeDate
软件包中的函数
isBizday
。所以首先你应该阅读这个函数的文档。
有书面规定：

x是类timeDate的对象

因此，您需要转换日期：

d <- as.timeDate(Dates)
isBizday(d)

d我建议您检查我的答案，并接受它或给出任何其他反馈。