# NOT RUN {
df <- dfwide %>%
dplyr::select(date, dplyr::starts_with("CL")) %>%
tidyr::drop_na()
chart_fwd_curves(
df = df, cmdty = "cmewti", weekly = TRUE,
main = "WTI Forward Curves", ylab = "$ per bbl", xlab = "", cex = 2
)
# }
Run the code above in your browser using DataLab