## code for latent variables with two classes
pi <- c(0.602, 0.398)
alpha1 <- c(3.529, 2.317)
alpha2 <- c(0.02, 0.336)
beta21 <- c(0.152, 0.053)
psi11 <- c(0.265, 0.265)
psi22 <- c(0.023, 0.023)
plotobj <- plotSEMM_setup(pi, alpha1, alpha2, beta21, psi11, psi22)
plotSEMM_contour(plotobj)
plotSEMM_contour(plotobj, EtaN1 = "Latent Predictor",
EtaN2 = "Latent Outcome", classinfo = FALSE, lncol = 5)
Run the code above in your browser using DataLab