This is an old revision of the document!

Generating a random data set with certain correlations

n.d <- 6
r12 <- .2
mu <- c(4, 2)
n.var <- length(mu)
stddev <- c(1, 1)

corMat <- matrix(c(1, r12,
                   r12, 1),
                   ncol = n.var)
corMat
covMat <- stddev %*% t(stddev) * corMat
covMat
set.seed(10)
library(MASS)
d1 <- mvrnorm(n = n.d, mu = mu, Sigma = covMat, empirical = TRUE)
d1 <- data.frame(d1)
colnames(d1) <- c("x", "y")
colMeans(d1)
cor(d1)
pairs(d1)
d1
plot(d1)
abline(v=mean(d1$x), h=mean(d1$y), col="red", lty=2, lwd=1)

n.d <- 6
r12 <- .2
r13 <- .6
r23 <- .8
mu <- c(4, 10, 2)
n.var <- length(mu)
stddev <- c(1, 1, 1)

corMat <- matrix(c(1, r12, r13,
                   r12, 1, r23,
                   r13, r23, 1),
                 ncol = n.var)
corMat
covMat <- stddev %*% t(stddev) * corMat
covMat
set.seed(1)
library(MASS)
d1 <- mvrnorm(n = n.d, mu = mu, Sigma = covMat, empirical = TRUE)
d1 <- data.frame(d1)
colnames(d1) <- c("x", "y", "z")
colMeans(d1)
cor(d1)
pairs(d1)
d1
plot(d1)
abline(v=mean(d1$x), h=mean(d1$y), col="red", lty=2, lwd=1)