olympic {ade4} | R Documentation |
This data set gives the performances of 33 men's decathlon at the Olympic Games (1988).
data(olympic)
olympic
is a list of 2 components.
Example 357 in:
Hand, D.J., Daly, F., Lunn, A.D., McConway, K.J. and Ostrowski, E. (1994)
A handbook of small data sets, Chapman & Hall, London. 458 p.
Lunn, A. D. and McNeil, D.R. (1991) Computer-Interactive Data Analysis, Wiley, New York
data(olympic) pca1 <- dudi.pca(olympic$tab, scan = FALSE) par(mfrow = c(2,2)) barplot(pca1$eig) s.corcircle(pca1$co) plot(olympic$score, pca1$l1[,1]) abline(lm(pca1$l1[,1]~olympic$score)) s.label(pca1$l1, clab = 0.5) s.arrow(2 * pca1$co, add.p = TRUE) par(mfrow = c(1,1))