ade4 (version 1.01)

olympic: Olympic Decathlon

Description

This data set gives the performances of 33 men's decathlon in the 1988 Olympics

Usage

data(olympic)

format

olympic is a list of 2 components.

1. tab

{is a data frame with 33 rows and 10 columns events of the decathlon.} scores{is a vector of the final points scores of the competition.}

source

Example n� 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

Examples

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))