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