r - 来自 quantmod 包的 getOptionChain，如何获取多个到期日期的选项

Question

我正在尝试通过枚举它们来获取多个到期日期的 optionChain：

library(quantmod)
x <- getOptionChain(symbol, Exp=as.Date(c("2013-08-17", "2013-07-20")))

但我明白了

Error in file(con, "r") : invalid 'description' argument

这样做的正确方法是什么？

其次，有没有办法获取股票的期权到期日列表？

我问的原因是

getOptionChain("NOK", Exp=NULL)

给出一个错误，所以我不得不列出到期日期（因为我想要完整的链）。

谢谢阿舒

Answer 1

@Ashu，试试：

#your list of expiration dates
exp=c("2013-08-17", "2013-07-20")

x=list()
for(i in 1:length(exp)) x<-c(getOptionChain("NOK",exp[i]),x)

如果您有一个股票代码列表，用列表替换“NOK”并相应地更改行。

使用更类似于 R 且更高效的 lapply：

lapply(exp,function(x) getOptionChain("NOK",x))