Displaying 1 result from an estimated 1 matches for "plsda2".
Did you mean:
plsda
2017 Sep 18
0
Q2/R2 ratio in PLSDA
...ot; and create matrix
dta.red<-dta[,-1]
dta.scale<-scaling(dta.red,type="pareto")
matrix<-as.matrix(dta.scale)
#create vector with "Treatment"
dta.treatments<-dta[,1]
dta.factor<-as.factor(dta.treatments)
dta.factor
#PLSDA
#Performance/Loo cross validation
res.plsda2 = plsda(dta.scale, dta.factor, ncomp = 5)
tune.plsda2 = perf(res.plsda2, dist = "all", validation = "loo", progressBar = FALSE)
tune.plsda2$error.rate
dta.plsda2<-plsda(dta.scale, dta.factor,scale=F,mode="classic")
dta.plsda2
plotIndiv(dta.plsda2, ind.names =...