powered by
getLoading(x) getReg(x)
prcomp
plsr
data(applejuice) applejuice_uf <- unfold(applejuice) # unfold list into matrix result <- prcomp(applejuice_uf) loading <- getLoading(result) str(loading)
Run the code above in your browser using DataLab