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” 的名单，并相应地更改线路。使用

lapply这是比较R类似的高效：

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