suprow                 package:ade4                 R Documentation

_P_r_o_j_e_c_t_i_o_n_s _o_f _S_u_p_p_l_e_m_e_n_t_a_r_y _R_o_w_s

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

     performs projections of supplementary rows.

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

      
     suprow.coa (x, Xsup, ...) 
     suprow.default (x, Xsup, ...) 
     suprow.pca (x, Xsup, ...) 

_A_r_g_u_m_e_n_t_s:

       x: an object of class 'dudi'

    Xsup: an array with the supplementary rows ('Xsup' and 'x$tab' have
          the same column number)

     ...: further arguments passed to or from other methods

_D_e_t_a_i_l_s:

     If 'suprow.default' is used, the column vectors of Xsup are
     projected without prior modifications onto the principal
     components of dudi with the scalar product associated to the row
     weightings of dudi.

_V_a_l_u_e:

     returns a data frame containing the coordinates of the
     supplementary projections

_A_u_t_h_o_r(_s):

     Daniel Chessel chessel@biomserv.univ-lyon1.fr

_R_e_f_e_r_e_n_c_e_s:

     Gower, J. C. (1967) Multivariate analysis and multivariate
     geometry. _The statistician_, *17*, 13-28.

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

     data(euro123)
     par(mfrow = c(2,2))
     w <- euro123[[2]]
     dudi1 <- dudi.pca(w, scal = FALSE, scan = FALSE)
     s.arrow(dudi1$c1, sub = "Classical", possub = "bottomright", csub = 2.5)
     s.label(suprow(dudi1,w), add.plot = TRUE, clab = 0.75)

     s.arrow(dudi1$c1,
         sub = "Without centring", possub = "bottomright", csub = 2.5)
     s.label(suprow.default(dudi1,w), clab = 0.75, add.plot = TRUE)

     triangle.plot(w, clab = 0.75, label = row.names(w), scal = FALSE)
     triangle.plot(w, clab = 0.75, label = row.names(w), scal = TRUE)

     data(rpjdl)
     rpjdl.coa <- dudi.coa(rpjdl$fau, scann = FALSE, nf = 4)
     rpjdl.coa$li[1:3,]
     suprow(rpjdl.coa,rpjdl$fau[1:3,]) # idem

     data(deug)
     deug.dudi <- dudi.pca(df = deug$tab, center = deug$cent, 
         scale = FALSE, scannf = FALSE)
     suprow(deug.dudi, deug$tab[1:3,]) # the supplementary individuals are centered
     deug.dudi$li[1:3,]  # idem

