# NOT RUN {
ret <- data.frame(
date = seq.Date(Sys.Date() - 60, Sys.Date(), 1),
CL01 = rnorm(61, 0, .01), RB01 = rnorm(61, 0, 0.02)
)
chart_PerfSummary(ret = ret,
geometric = TRUE,
main = "Cumulative Returns and Drawdowns",
linesize = 1.25)
# }
Run the code above in your browser using DataLab