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