n <- 30
r <- seq(0,.9,.1)
rc <- matrix(r.con(r,n),ncol=2)
test <- r.test(n,r)
r.rc <- data.frame(r=r,z=fisherz(r),lower=rc[,1],upper=rc[,2],t=test$t,p=test$p)
round(r.rc,2)
r.test(50,r)
r.test(30,.4,.6) #test the difference between two independent correlations
r.test(103,.4,.5,.1) #Steiger case A
r.test(103,.5,.6,.7,.5,.5,.8) #steiger Case B
Run the code above in your browser using DataLab