s_generate_data
u_fisherZ(n0, cor0, n1, cor1) fisherTransform(n_1, r1, n_2, r2)
data("simdata") X = simdata[,c(-1,-2)] fisherScore <- u_fisherZ(n0 = 100, cor0 = cor(X[1:50,]), n1 = 100, cor1 = cor(X[51:100,])) dim(fisherScore) fisherScore[1:5,1:5]
Run the code above in your browser using DataLab