Algunos enlaces:
http://www.scribd.com/doc/34567320/Untangling-Skill-and-Luck
http://web.ist.utl.pt/adriano.simoes/tese/referencias/Papers%20-%20Pedro/UK%20mutual%20fund%20performance%20Skill%20or%20luck.pdf
A continuación está el código que he usado recientemente para ilustrar la suerte (y con-juegos). La historia fue así:
Voy a soñar a su suerte de la lotería número para el año 2010.....digamos que es 20639. El número no importa, porque vamos a utilizar para que la semilla del generador de números aleatorios. Luego, me quedo con los tres primeros dígitos de su suerte de la lotería número (206) y la inversión de la tendencia (-.602) y usar eso como un multiplicador de ese número aleatorio. Desde que el S&P500 se inició en 2010 a alrededor de 1100, voy a empezar el modelo en ese nivel. Aquí está el código:
library(quantmod)
#Read 2010 S&P500 data from Yahoo
tem <- as.zoo(getSymbols("^gspc", from="2010-01-01", to="2011-01-01", auto.assign=FALSE, src = "yahoo"))
#Build a lucky lottery model based on the seed
set.seed(20639) #Your lucky lottery number
yt <- tem$GSPC.Adjusted
coredata(yt) <- 1100 * exp(-0.602 * cumsum(rnorm(length(yt), sd=0.0113)))
#Plot the results
plot(tem$GSPC.Adjusted, type="l", main="S&P500 for Year 2010", ylab="S&P500", xlab="", lwd=3, col="darkgray")
lines(yt, lwd=2, col="red")
legend("bottomright", legend=c("Actual S&P500", "Dredged S&P500"), lwd=c(3, 2), col=c("darkgray", "red"))
Todo esto es de sentido BS, pero tomó un tiempo para algunas personas para esclarecer la suerte de los estafadores. La parte difícil es convencer a ti mismo que tu "habilidad" en realidad, se encuentran algo real. Algo "real" es un caso muy raro en el mundo de las inversiones.