# NOT RUN {
if (requireNamespace("MASS", quietly = TRUE)) {
data(Bornholm)
Bornholm.ca <- MASS::corresp(Bornholm[, 4:42], nf=2)
plot(Bornholm.ca$rscore, pch=substring(Bornholm$Period, 1, 1), cex=.75)
boxplot(Bornholm.ca$rscore[, 1]~Bornholm$Period, main="First CA Axis by Period")
} else {
cat("This example requires the MASS package.\n")
}
# }
Run the code above in your browser using DataLab