powered by
"getLoadingMN"(object, orthoL = FALSE)
opls
data(sacurine) attach(sacurine) sacurine.plsda <- opls(dataMatrix, sampleMetadata[, "gender"]) getLoadingMN(sacurine.plsda) detach(sacurine)
Run the code above in your browser using DataLab