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