supcol                 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 _C_o_l_u_m_n_s

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

     performs projections of supplementary columns.

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

     supcol(x, ...)
     supcol.default (x, Xsup, ...) 
     supcol.coa (x, Xsup, ...) 

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

       x: an object used to select a method

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

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

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

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

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

     returns a list of two components : '$tabsup' {data frame
     containing the array with the supplementary columns transformed or
     not} '$cosup' {data frame containing the coordinates of the
     supplementary projections}

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

     Daniel Chessel chessel@biomserv.univ-lyon1.fr

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

     data(rpjdl)
     rpjdl.coa <- dudi.coa(rpjdl$fau, scan = FALSE, nf = 4)
     rpjdl.coa$co[1:3,]
     supcol (rpjdl.coa,rpjdl$fau[,1:3])$cosup # the same

     data(doubs)
     dudi1 <- dudi.pca(doubs$poi, scal = FALSE, scan = FALSE)
     s.arrow(dudi1$co)
     s.arrow(supcol.default(dudi1,data.frame(scalewt(doubs$mil)))$cosup,
         add.p = TRUE, clab = 2)
     symbols(0, 0, circles = 1, inches = FALSE, add = TRUE)

