supcol {ade4} | R Documentation |
performs projections of supplementary columns.
supcol(x, ...) supcol.default (x, Xsup, ...) supcol.coa (x, Xsup, ...)
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 |
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.
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}
Daniel Chessel chessel@biomserv.univ-lyon1.fr
Anne B Dufour dufour@biomserv.univ-lyon1.fr
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)