# NOT RUN {
data("gss")
# Model 1: LCA
lca = glca(item(ABDEFECT, ABHLTH, ABRAPE, ABPOOR, ABSINGLE, ABNOMORE) ~ 1,
data = gss, nclass = 3)
summary(lca)
# Model 2: LCA with a covariate
lcr = glca(item(ABDEFECT, ABHLTH, ABRAPE, ABPOOR, ABSINGLE, ABNOMORE) ~ SEX,
data = gss, nclass = 3)
summary(lcr)
coef(lcr)
# Model 3: MGLCA
mglca = glca(item(ABDEFECT, ABHLTH, ABRAPE, ABPOOR, ABSINGLE, ABNOMORE) ~ 1,
group = REGION, data = gss, nclass = 3)
# Model 4: MGLCA with covariates
summary(mglca)
mglcr = glca(item(ABDEFECT, ABHLTH, ABRAPE, ABPOOR, ABSINGLE, ABNOMORE) ~ AGE,
group = SEX, data = gss, nclass = 3)
summary(mglcr)
coef(mglcr)
# Model 5: MLCA
mlca = glca(item(ABDEFECT, ABHLTH, ABRAPE, ABPOOR, ABSINGLE, ABNOMORE) ~ 1,
group = REGION, data = gss, nclass = 3, ncluster = 2)
summary(mlca)
# }
Run the code above in your browser using DataLab