powered by
Athletes' performance during two sporting meetings
data("decathlon2")
A data frame with 27 observations on the following 13 variables.
X100m
a numeric vector
Long.jump
Shot.put
High.jump
X400m
X110m.hurdle
Discus
Pole.vault
Javeline
X1500m
Rank
a numeric vector corresponding to the rank
Points
a numeric vector specifying the point obtained
Competition
a factor with levels Decastar OlympicG
Decastar
OlympicG
# NOT RUN { data(decathlon2) decathlon.active <- decathlon2[1:23, 1:10] res.pca <- prcomp(decathlon.active, scale = TRUE) fviz_pca_biplot(res.pca) # } # NOT RUN { # }
Run the code above in your browser using DataLab