# NOT RUN {
# 10-dimensional multivariate normal distribution
n <- 10
A <- matrix(rnorm(n^2), n, n)
A <- A %*% t(A)
condMVN(mean=rep(1,n), sigma=A, dependent=c(2,3,5), given=c(1,4,7,9),
X.given=c(1,1,0,-1))
condMVN(mean=rep(1,n), sigma=A, dep=3, given=c(1,4,7,9), X=c(1,1,0,-1))
condMVN(mean=rep(1,n), sigma=A, dep=3, given=integer())
# or simply the following
condMVN(mean=rep(1,n), sigma=A, dep=3)
# }
Run the code above in your browser using DataLab