# NOT RUN {
# data
Y <- GGMncv::ptsd[,1:5]
# columns
p <- ncol(Y)
# contstraint matrix
constraints <- matrix(0,p,p)
# set one value to zero
constraints[2,3] <- 1
constraints[3,2] <-1
# estimate, given constraints
fit <- constrained(cor(Y), adj = constraints)
Theta <- fit$Theta
# }
Run the code above in your browser using DataLab