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