if (FALSE) {
refdate <- Sys.Date() - 1
ch <- cotahist_get(refdate, "daily")
yc <- yc_get(refdate)
ch_ss <- cotahist_equity_options_superset(ch, yc)
petr4_ch_ss <- cotahist_options_by_symbol_superset("PETR4", ch, yc)
}
Run the code above in your browser using DataLab