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