if (FALSE) {
# Load data
data("anes0809offwaves")
x <- anes0809offwaves
x <- x[,3:22] # Remove columns for age and gender
# Identify the DMIRT model
id <- modid(x)
# Call to summary
summary(id)
# Call to summary rounded off to 2 digits
summary(id, digits = 2)
}
Run the code above in your browser using DataLab