When is a Backtest Too Good to be True? Part Two.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.
In the previous post, I went through a simple exercise which, to me, clearly demonsrtates that 60% out of sample guess rate (on daily basis) for S&P 500 will generate ridiculous returns. From the feedback I got, it seemed that my example was somewhat unconvincing. Let’s dig a bit further then.
Let’s add Sharpe ratio and maximum drawdown to the CAGR and compute all three for each sample.
return.mc = function(rets, samples=1000, size=252) { require(PerformanceAnalytics) # The annualized return for each sample result = data.frame(cagr=rep(NA, samples), sharpe.ratio=NA, max.dd=NA) for(ii in 1:samples) { # Sample the indexes aa = sample(1:NROW(rets), size=size) # All days we guessed wrong bb = -abs(rets) # On the days in the sample we guessed correctly bb[aa] = abs(bb[aa]) # Compute the statistics of interest for this sample. result[ii,1] = Return.annualized(cc,scale=252) result[ii,2] = SharpeRatio.annualized(bb,scale=252) result[ii,3] = maxDrawdown(cc) } return(result) }
Let’s look at some summary statistics:
require(quantmod) gspc = getSymbols("^GSPC", from="1900-01-01", auto.assign=F) rets = ROC(Cl(gspc),type="discrete",na.pad=F)["1994/2013"] df = return.mc(rets, size=as.integer(0.6*NROW(rets))) summary(df,digits=2) # cagr sharpe.ratio max.dd # Min. :0.34 Min. :1.8 Min. :0.13 # 1st Qu.:0.45 1st Qu.:2.3 1st Qu.:0.22 # Median :0.48 Median :2.5 Median :0.26 # Mean :0.48 Mean :2.5 Mean :0.27 # 3rd Qu.:0.51 3rd Qu.:2.7 3rd Qu.:0.31 # Max. :0.67 Max. :3.5 Max. :0.63
The picture is clearer now. Lowest Sharpe ratio of 1.8 among all samples, and a mean at 2.5? Yeah, right.
The results were similar for other asset classes as well – bonds, oil, etc. All in all, in financial markets, like in a casino, a small edge translates into massive wealth, and most practitioners understand that intuitively.
The post When is a Backtest Too Good to be True? Part Two. appeared first on Quintuitive.
R-bloggers.com offers daily e-mail updates about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.