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