# 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