# 4 10-item vectors each correlated r = .5
rnorm_multi(10, 4, r = 0.5)
# set r with the upper right triangle
b <- rnorm_multi(100, 3, c(0, .5, 1), 1,
r = c(0.2, -0.5, 0.5),
varnames=c("A", "B", "C"))
cor(b)
# set r with a correlation matrix and column names from mu names
c <- rnorm_multi(
n = 100,
mu = c(A = 0, B = 0.5, C = 1),
r = c( 1, 0.2, -0.5,
0.2, 1, 0.5,
-0.5, 0.5, 1)
)
cor(c)
Run the code above in your browser using DataLab