mu <- c(2, 1) #mean vector
sigma <- matrix(c(2^2, 0.5*2*1, 0.5*2*1, 1^2), 2, 2) #covariacne matrix
sigma.eigen <- eigen(sigma)
decomp.covariance <- sigma.eigen$vectors%*%diag(sqrt(sigma.eigen$values))
f <- mvnorm_sd(mu, decomp.covariance) #draw sample
Run the code above in your browser using DataLab