R 如何正确增加/减少纽约证券交易所交易/假日的营业日

我正试图从雅虎金融（yahoo finance）提取锁定到期日前后（ipo后180天）的价格数据。问题是，当我查看从yahoo finance检索到的日期数时，它会有所不同。我需要对每台股票进行相同数量的观察。我猜我没有把日历/假期设置好

代码如下。变量tickerdata包含来自yahoo请求的数据

cal  <- create.calendar("UnitedStates/NYSE", weekdays=c("saturday", "sunday"))
for(i in seq(1,numrows , 1)) {

    ticker=tickerdata[i,"Ticker"];
    IPO.dat <- as.Date(tickerdata[i,"Date"],format="%yyyy-%m-%d");
    from.dat<-bizdays::offset(IPO.dat, 180-beforeDays, cal);
    to.dat<-bizdays::offset(IPO.dat, 180+afterDays, cal);

   if (to.dat<TodayDate.dat) {
      possibleError <- tryCatch(
        { 
        histData<- getSymbols(ticker, src="yahoo", from = from.dat, to =     
                 to.dat,adjust=TRUE,auto.assign=FALSE);
        print(paste("num rows: ",nrow(histData),"for ticker:",ticker,sep="") )
        },
        error=function(cond) { 
             message(paste("Error for ticker:",ticker,sep=""));
        },
        warning=function(cond) {
        message(paste("Error for ticker:",ticker,sep=""));
      },
      finally={
      }
    ) # end of catch
}

---

cal能否提供tickerdata数据帧的示例？这将有助于复制和了解发生了什么。还有：函数“create.calendar”来自哪里？它是做什么的？至少有两个帖子用于构建从一个日期到另一个日期的工作日数。这将是一个很好的第一步。lmo-你的参考资料相当模糊，你能提供一个http链接吗？或者引用？guscht-数据驻留在excel文件中，读取它的代码是：tickerdata您可以提供tickerdata数据框的示例吗？这将有助于复制和了解发生了什么。还有：函数“create.calendar”来自哪里？它是做什么的？至少有两个帖子用于构建从一个日期到另一个日期的工作日数。这将是一个很好的第一步。lmo-你的参考资料相当模糊，你能提供一个http链接吗？或引用？guscht-数据驻留在excel文件中，读取它的代码是：tickerdata