olympic {ade4}R Documentation

Olympic Decathlon

Description

This data set gives the performances of 33 men's decathlon at the Olympic Games (1988).

Usage

data(olympic)

Format

olympic is a list of 2 components.

tab
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).
score
is a vector of the final points scores of the competition.

Source

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

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

Worked out examples


> library(ade4)
> ### Name: olympic
> ### Title: Olympic Decathlon
> ### Aliases: olympic
> ### Keywords: datasets
> 
> ### ** 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))
> 
> 
> 

[Package ade4 Index]