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