## Not run:
# data(managers)
# n = table.Drawdowns(managers[,2,drop=FALSE])
# chart.Events(Drawdowns(managers[,2,drop=FALSE]),
# dates = n$Trough,
# prior=max(na.omit(n$"To Trough")),
# post=max(na.omit(n$Recovery)),
# lwd=2, colorset=redfocus, legend.loc=NULL,
# main = "Worst Drawdowns")
# ## End(Not run)
Run the code above in your browser using DataLab