Estoy tratando de replicar Silver y Dunlap (1987) . Solo estoy comparando el promedio de correlaciones o el promedio de correlaciones de transformación z y la transformación inversa. Parece que no estoy replicando la asimetría en el sesgo que encuentran (las z transformadas de nuevo no están más cerca del valor de la población para mí que rs). ¿Alguna idea? ¿Es posible que la potencia informática de 1987 no haya explorado el espacio lo suficiente?
# Fisher's r2z
fr2z <- atanh
# and back
fz2r <- tanh
# a function that generates a matrix of two correlated variables
rcor <- function(n, m1, m2, var1, var2, corr12){
require(MASS)
Sigma <- c(var1, sqrt(var1*var2)*corr12, sqrt(var1*var2)*corr12, var2)
Sigma <- matrix(Sigma, 2, 2)
return( mvrnorm(n, c(m1,m2), Sigma, empirical=FALSE) )
}
Con esta función, es fácil observar un montón de correlaciones (básicamente replicar silver y dunlap 1987) y ver la diferencia entre promediar correlaciones y promediar puntajes z y volver a transformar. Aquí hay solo uno.
r <- 0.9
Y <- replicate(20000, rcor(10, 0, 0, 1, 1, r))
rs <- apply(Y, 3, function(x) cor(x[,1], x[,2]))
mean(rs) - r
zs <- fr2z(rs)
fz2r( mean(zs) ) - r
Simplemente observando el tamaño de la muestra de 10 y las correlaciones de 0.1, 0.5 y 0.9, estos son los resultados.
rho r bias z bias
0.1 -0.006 0.006
0.5 -0.024 0.021
0.9 -0.011 0.011
Y estos se derivan de la Tabla 1 de Silver & Dunlap.
rho r bias z bias
0.1 -0.007 0.003
0.5 -0.025 0.001
0.9 -0.011 -0.007
Estos son resultados bastante diferentes. Desde mi prueba, veo que es solo una cuestión de dirección de sesgo, no de magnitud. Pero, en el artículo publicado, están encontrando mucha menos magnitud con z. No pude encontrar una no replicación publicada.
r bias
for rho
de 0.5 en la tabla Silver & Dunlap me parece un valor atípico. Ciertamente no puedo garantizar la calidad de la revista, que parece bastante nueva y un poco áspera, pero encontré este artículo reciente con una búsqueda en Google. Vea, en particular, su Tabla 3 que, nuevamente, a simple vista, parece corroborar sus resultados.