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)) {
op <- lava.options(Dmethod="simple")
e1 <- complik(m,d,control=list(trace=1),type="all")
lava.options(op)
e1
}
Run the code above in your browser using DataLab