data(aze_compl)
Xaze_compl<-aze_compl[,2:34]
yaze_compl<-aze_compl$y
bbb <- PLS_lm_kfoldcv(dataY=yaze_compl,dataX=Xaze_compl,nt=10,K=12,NK=1)
bbb2 <- PLS_lm_kfoldcv(dataY=yaze_compl,dataX=Xaze_compl,nt=10,K=6,NK=2)
bbb3 <- PLS_lm_kfoldcv(dataY=yaze_compl,dataX=Xaze_compl,nt=10,K=6,NK=2,random=TRUE)
kfolds2Mclassed(bbb)
kfolds2Mclassed(bbb2)
kfolds2Mclassed(bbb3)
rm(list=c("Xaze_compl","yaze_compl","bbb","bbb2","bbb3"))
Run the code above in your browser using DataLab