powered by
data(deug)
data(deug) # decentred PCA pca1 <- dudi.pca(deug$tab, scal = FALSE, center = deug$cent, scan = FALSE) s.class(pca1$li, deug$result) s.arrow(40 * pca1$c1, add.plot = TRUE)
Run the code above in your browser using DataLab