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