if (FALSE) {
# Load and prepare data
data <- Exam
classes <- c(1, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.7, 8.5, Inf)
data$examsc.class <- cut(data$examsc, classes)
# Run model with default settings
model <- semLm(
formula = examsc.class ~ standLRT + schavg, data = data,
classes = classes
)
summary(model)
}
# \dontshow{
# Load and prepare data
data <- Exam
classes <- c(1, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.7, 8.5, Inf)
data$examsc.class <- cut(data$examsc, classes)
# Run model with default settings
model <- semLm(
formula = examsc.class ~ standLRT + schavg, data = data,
classes = classes, burnin = 4, samples = 10
)
summary(model)
# }
Run the code above in your browser using DataLab