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

Question

我试图通过枚举它们来获得几个到期日期的期权：

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))