olympic                 package:ade4                 R Documentation

_O_l_y_m_p_i_c _D_e_c_a_t_h_l_o_n

_D_e_s_c_r_i_p_t_i_o_n:

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

_U_s_a_g_e:

     data(olympic)

_F_o_r_m_a_t:

     'olympic' is a list of 2 components.

     _t_a_b is a data frame with 33 rows and 10 columns events of the
          decathlon.

     _s_c_o_r_e_s is a vector of the final points scores of the competition.

_S_o_u_r_c_e:

     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

_E_x_a_m_p_l_e_s:

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

