# NOT RUN {
library(mvtnorm)
# Generate sigma
set.seed(1234)
sigma <- matrix(0, nrow =5,ncol=5)
sigma[1:5,1:5]<-.5
diag(sigma)<-3
# Generate vectors of Beta, mean and standard deviation
Beta1<- round(runif(5,1.5,3.5),1)
mu <- runif(5, 0, 0)
sd <- runif(5, 1, 1)
# Get the multivariate normal distribution data
set.seed(123)
result <-mvnData(sigma=sigma, n=10,mean=mu,sd=1,Beta=Beta1)
result
# }
Run the code above in your browser using DataLab