# Example 1: X2,X3,X5|X2,X4 ~ N_3(1, Sigma)
# truncated between -10 and 10.
d <- 5
rho <- 0.9
Sigma <- matrix(0, nrow = d, ncol = d)
Sigma <- rho^abs(row(Sigma) - col(Sigma))
# Log-density of 0
dcmvtruncnorm(
rep(0, 3),
mean = rep(1, 5),
sigma = Sigma,
lower = rep(-10, 5),
upper = rep(10, d),
dependent.ind = c(2, 3, 5),
given.ind = c(1, 4), X.given = c(1, -1),
log = TRUE
)
Run the code above in your browser using DataLab