if (FALSE) {
# Only the front-month expiry
AAPL.OPT <- getOptionChain("AAPL",
api.key = Sys.getenv("ORATS_API_KEY"))
# All expiries
AAPL.OPTS <- getOptionChain("AAPL", NULL,
api.key = Sys.getenv("ORATS_API_KEY"))
# All 2015 and 2016 expiries
AAPL.2015 <- getOptionChain("AAPL", "2015/2016",
api.key = Sys.getenv("ORATS_API_KEY"))
}
Run the code above in your browser using DataLab