# NOT RUN {
data(taste)
active.headings <- list()
active.headings$Consumption <- na.omit(taste)[, c("TV", "Film", "Art", "Eat")]
active.headings$Background <- na.omit(taste)[, c("Gender", "Age", "Income")]
result.headings <- soc.mca(active.headings)
headings(result.headings)
# }
Run the code above in your browser using DataLab