Tratando de replicar la Beta de Yahoo en R pero estoy obteniendo una respuesta que está muy lejos

Question

Yahoo calcula la Beta usando 3 años de retornos mensuales y usando el S&P 500 como proxy de mercado pero parece que no puedo replicar esto o incluso acercarme usando R. Descargué los datos de Yahoo desde el 12/01/2014 hasta el 12/01/2017 para NKE y GSPC y tomé el precio de cierre ajustado (ya sea eso o sólo el precio de cierre ambos deberían al menos estar bastante cerca de la beta si el cálculo se hace correctamente). Luego hago lo siguiente

>nike = read.csv("NKE.csv")
>sp = read.csv("^GSPC.csv")
>nikeAC = nike$Adj.Close
>spAC = sp$Adj.Close
> niker = rep(0,36)
> 
> for (i in 1:36){
+     niker[i] = (nikeAC[i+1]-nikeAC[i])/nikeAC[i]
+ }
> 
> spr = rep(0,36)
> 
> for (i in 1:36){
+     spr[i] = (spAC[i+1]-spAC[i])/spAC[i]
+ }
> cov(spr,niker)/var(spr)

y obtienen un resultado de -1,21 cuando se supone que la Beta debe estar en torno a 0,54. También me gustaría añadir que no utilizan una Beta ajustada por lo que debería estar obteniendo algo cercano a .54 ya que he comprobado otros sitios y parecen estar dentro del rango de .54 -.64 generalmente.

Answer 1

Se necesitan los rendimientos de 36 meses, en particular los datos de 37 meses. Yahoo también utiliza precios de cierre no ajustados para el índice de referencia por lo que sé. Los datos del 8/1/2015 tienen que ser un error, he comprobado múltiples fuentes de datos y no he encontrado similitudes. Después de interpolar ese punto obtuve una beta de 0,48.