data(sacurine)
attach(sacurine)
testedorMN <- dataMatrix
responseFc <- sampleMetadata[, "gender"]
sacurine.plsda <- opls(testedorMN,
responseFc,
subset = "odd")
trainVi <- getSubsetVi(sacurine.plsda)
table(responseFc[trainVi], fitted(sacurine.plsda))
detach(sacurine)
Run the code above in your browser using DataLab