# NOT RUN {
# The moschidis example
data(moschidis)
active <- moschidis[, c("E1","E2", "E3")]
id <- moschidis[, c("ID")]
result <- soc.mca(active, identifier = id, Moschidis = FALSE)
# Compare output to Moschidis (2009, p. 85)
result$inertia_full
# In the analysis of the 'real' data the modality
#'E1: 1' with a low mass (fr/Q) has a very high contribution to the fourth axis
result$ctr.mod[, 4]
# Using the transformed model suggested by Moschidis (2009) that takes into
# account the number of modalities per question in order to balance the
# contribution of the modalities
result_trans <- soc.mca(active, identifier = id, Moschidis = TRUE)
result_trans$inertia_full
result_trans$ctr.mod[, 4]
# }
Run the code above in your browser using DataLab