if (FALSE) {
# Load data
data("anes0809offwaves")
x <- anes0809offwaves
x <- x[, 3:22] # Remove columns for age and gender
# Call D3mirt() with constructs
con <- list(c(1,2,3,4,5,6,7,8,9,10),
c(11,12,13,14),
c(15,17,18,19,20))
mod <- D3mirt(x, modid = c("W7Q3", "W7Q20"), con.items = con)
# Call to summary
summary(mod)
#' # Call to summary rounded off to 2 digits
summary(mod, digits = 2)
}
Run the code above in your browser using DataLab