if (FALSE) {
x <- dflong %>%
dplyr::filter(grepl("CL",series)) %>%
dplyr::mutate(series = readr::parse_number(series)) %>% dplyr::group_by(series) %>%
RTL::returns(df = ., retType = "abs",period.return = 1,spread = TRUE) %>%
RTL::rolladjust(x = .,commodityname = c("cmewti"),rolltype = c("Last.Trade")) %>%
# removing the day it prices went negative...
dplyr::filter(!date %in% c(as.Date("2020-04-20"),as.Date("2020-04-21")))
promptBeta(x = x, period = "all", betatype = "all", output = "chart")
promptBeta(x = x, period = "all", betatype = "bull", output = "betas")
promptBeta(x = x, period = "100", betatype = "bear", output = "betas")
}
Run the code above in your browser using DataLab