getOptionChain из пакета quantmod, как получить опции для нескольких сроков действия

Я пытаюсь получить 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)

выдает ошибку, поэтому я вынужден указать даты истечения срока действия (поскольку мне нужна полная цепочка).

Спасибо Ашу


r quantmod
person Ashu    schedule 25.06.2013    source источник

Ответы (1)


arrow_upward
3
arrow_downward

@Ашу, попробуй:

#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))
person hvollmeier    schedule 25.06.2013