Silver&Dunlap(1987)を複製しようとしています。私は単に平均相関を比較している、または平均z変換相関と逆変換を比較しています。彼らが見つけたバイアスの非対称性を再現していないようです(逆変換されたzはrsよりも母集団の値に近くありません)。何かご意見は?1987年のコンピューティング能力が十分に空間を探索しなかった可能性はありますか?
# 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) )
}
これらの関数を使用すると、一連の相関関係(基本的には銀とdunlap 1987を複製)を見て、相関の平均化とZスコアの平均化と逆変換の違いを簡単に確認できます。1つだけです。
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
10のサンプルサイズと0.1、0.5、0.9の相関関係を見るだけで、これらは結果です。
rho r bias z bias
0.1 -0.006 0.006
0.5 -0.024 0.021
0.9 -0.011 0.011
これらは、Silver&Dunlapの表1から導き出されています。
rho r bias z bias
0.1 -0.007 0.003
0.5 -0.025 0.001
0.9 -0.011 -0.007
これらはまったく異なる結果です。私のテストから、私はそれがバイアスの方向の問題であって、大きさの問題ではないことがわかりました。しかし、公開された論文では、zの大きさははるかに小さくなっています。公開された非複製を見つけることができませんでした。