# NOT RUN {
m <- lvm(c(y1,y2,y3)~b*x+1*u[0],latent=~u)
ordinal(m,K=2) <- ~y1+y2+y3
d <- sim(m,50,seed=1)
if (requireNamespace("mets", quietly=TRUE)) {
e1 <- complik(m,d,control=list(trace=1),type="all")
}
# }
Run the code above in your browser using DataLab