# NOT RUN {
if (require(BGGM)) library(BGGM)
Y <- ptsd
colnames(Y) <- letters[1:20]
est <- estimate(Y)
bggm_comb <- lin_comb("a--c + a--d > b--c + b--d",
obj = est,
ci = 0.90,
rope = c(-0.1, 0.1))
plot(bggm_comb)
# }
Run the code above in your browser using DataLab