if (FALSE) {
# Load data
data("anes0809offwaves")
x <- anes0809offwaves
x <- x[, 3:22] # Remove columns for age and gender
# Call D3mirt()
mod <- D3mirt(x, modid = c("W7Q3", "W7Q20"))
# Print model summary
print(mod)
}
Run the code above in your browser using DataLab