# NOT RUN {
results <- cabootcrs(DreamData, showresults=FALSE)
rowvars <- allvarscovs(results,"rows")
colvars <- allvarscovs(results,"columns")
# }
# NOT RUN {
resultsmca <- cabootcrs(DreamData223by3, catype="mca", showresults=FALSE)
allvars <- allvarscovs(resultsmca)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab