# NOT RUN {
cpairs <- dplyr::tibble(year = c("2014","2019","2020"),
first = c("@HO4H","@HO9H","@HO0H"),
second = c("@CL4J","@CL9J","@CL0J"))
chart_spreads(cpairs = cpairs, daysFromExpiry = 200, from = "2012-01-01",
conversion = c(42,1),feed = "CME_NymexFutures_EOD",
iuser = "x@xyz.com", ipassword = "pass",
title = "March/April ULSD Nymex Spreads",
yaxis = "$ per bbl",
output = "data")
# }
Run the code above in your browser using DataLab