# NOT RUN {
data(Bornholm)
library(MASS)
Bornholm.ca <- 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")
# }
Run the code above in your browser using DataCamp Workspace