# \donttest{
# Use IEA data
data = dataIEA
# Define vector with names of columns with items
Y = colnames(data)[4+1:12]
# Define number of (low-level) classes
iT = 3
# Estimate single-level measurement model
out = multiLCA(data = data, Y = Y, iT = iT)
out
# Plot conditional response probabilities with default settings
plot(out)
# Plot with vertical item labels and custom class labels
plot(out, horiz = FALSE, clab = c("Maximal", "Engaged", "Subject"))
# }
Run the code above in your browser using DataLab