powered by
"getPcaVarVn"(object)
opls
data(sacurine) attach(sacurine) sacurine.pca <- opls(dataMatrix) getPcaVarVn(sacurine.pca) detach(sacurine)
Run the code above in your browser using DataLab