powered by
prcomp
prcompname(prcompResult, PC, explvar = TRUE)
data(applejuice) applejuice_uf <- unfold(applejuice) # unfold list into matrix result <- prcomp(applejuice_uf) prcompname(result, 1)
Run the code above in your browser using DataLab