# NOT RUN {
m <- lvm()
regression(m) <- c(y1,y2,y3)~u
regression(m) <- u~x
latent(m) <- ~u
d <- sim(m,1e2)
try(checkData(m, d)) # return an error
checkData(m, d[,-4])
try(checkData(m, d[,-(3:4)])) # return an error
# }
Run the code above in your browser using DataLab