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)
# Print model identification summary
print(id)
}
Run the code above in your browser using DataLab