# NOT RUN {
results <- cabootcrs(DreamData)
resultsreflectfirstaxis <- reflectaxes(results, 1)
summaryca(resultsreflectfirstaxis)
plotca(resultsreflectfirstaxis)
# }
# NOT RUN {
# Often needed when comparing results between different packages,
# or same package on different machines,
# or to allow ellipses from this package to be added to plots from other packages
library(ca)
cad3 <- mjca(DreamData223by3)
bd3 <- cabootcrs(DreamData223by3, catype="mca")
summary(cad3)
bd3reflect1 <- reflectaxes(bd3,1)
summaryca(bd3reflect1)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab