# NOT RUN {
# data from the first population
Y <- rnorm(15, mean=5, sd=1)
# data from the second population
X <- rnorm(10, mean=7, sd=1.5)
# value of \eqn{r_p} for \code{psi=0.9}
rp(Y, X, 0.9,"norm_DV")
# }
Run the code above in your browser using DataLab