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