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.
is a data frame with 33 rows and 10 columns events of the decathlon: 100 meters (100), long jump (long), shotput (poid), high jump (haut), 400 meters (400), 110-meter hurdles (110), discus throw (disq), pole vault (perc), javelin (jave) and 1500 meters (1500).
is a vector of the final points scores of the competition.
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) if(adegraphicsLoaded()) { if(requireNamespace("lattice", quiet = TRUE)) { g1 <- s1d.barchart(pca1$eig, p1d.hori = F, plot = F) g2 <- s.corcircle(pca1$co, plot = F) g3 <- xyplot(pca1$l1[, 1] ~ olympic$score, type = c("p", "r")) g41 <- s.label(pca1$l1, plab.cex = 0.5, plot = F) g42 <- s.arrow(2 * pca1$co, plot = F) g4 <- superpose(g41, g42) G <- ADEgS(list(g1, g2, g3, g4), layout = c(2, 2)) } } else { 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)) }