R/kfolds2Mclassedind.R
kfolds2Mclassedind.Rd
This function indicates the number of missclassified individuals per group for k-fold cross validated partial least squares regression models.
kfolds2Mclassedind(pls_kfolds)
a k-fold cross validated partial least squares regression model used on binary data
Number of missclassified individuals per group vs number of components for the first group partition
...
Number of missclassified individuals per group vs number of components for the last group partition
Use cv.plsR
or cv.plsRglm
to create k-fold
cross validated partial least squares regression models or generalized
linear ones.
Nicolas Meyer, Myriam Maumy-Bertrand et Frédéric Bertrand (2010). Comparing the linear and the logistic PLS regression with qualitative predictors: application to allelotyping data. Journal de la Societe Francaise de Statistique, 151(2), pages 1-18. http://publications-sfds.math.cnrs.fr/index.php/J-SFdS/article/view/47
kfolds2coeff
, kfolds2Press
,
kfolds2Pressind
and kfolds2Mclassed
to extract
and transforms results from k-fold cross-validation.
# \donttest{
data(aze_compl)
Xaze_compl<-aze_compl[,2:34]
yaze_compl<-aze_compl$y
kfolds2Mclassedind(cv.plsR(object=yaze_compl,dataX=Xaze_compl,nt=10,K=8,NK=1,verbose=FALSE))
#> [[1]]
#> [[1]][[1]]
#> [1] 9 9 8 8 9 9 9 9 9 8
#>
#> [[1]][[2]]
#> [1] 7 7 5 6 6 6 6 6 6 6
#>
#> [[1]][[3]]
#> [1] 5 5 5 6 6 6 6 6 6 6
#>
#> [[1]][[4]]
#> [1] 6 7 7 7 6 6 6 6 6 6
#>
#> [[1]][[5]]
#> [1] 7 4 5 5 5 6 6 5 5 5
#>
#> [[1]][[6]]
#> [1] 8 6 5 5 4 4 4 5 5 5
#>
#> [[1]][[7]]
#> [1] 6 7 6 7 6 5 5 5 5 5
#>
#> [[1]][[8]]
#> [1] 5 6 6 6 7 7 6 6 6 6
#>
#>
kfolds2Mclassedind(cv.plsR(object=yaze_compl,dataX=Xaze_compl,nt=10,K=8,NK=2,verbose=FALSE))
#> [[1]]
#> [[1]][[1]]
#> [1] 4 6 4 5 6 6 6 6 6 6
#>
#> [[1]][[2]]
#> [1] 7 7 7 7 8 7 6 6 6 6
#>
#> [[1]][[3]]
#> [1] 8 8 8 9 9 9 9 9 9 9
#>
#> [[1]][[4]]
#> [1] 6 7 5 6 6 7 7 7 7 7
#>
#> [[1]][[5]]
#> [1] 7 6 6 6 6 6 6 6 6 6
#>
#> [[1]][[6]]
#> [1] 4 4 5 5 5 5 4 5 6 6
#>
#> [[1]][[7]]
#> [1] 4 5 4 4 4 4 4 4 4 4
#>
#> [[1]][[8]]
#> [1] 5 7 7 7 7 7 6 6 6 6
#>
#>
#> [[2]]
#> [[2]][[1]]
#> [1] 8 6 6 6 6 6 6 7 7 7
#>
#> [[2]][[2]]
#> [1] 6 8 8 9 9 9 9 9 9 9
#>
#> [[2]][[3]]
#> [1] 7 6 8 8 9 8 8 8 8 8
#>
#> [[2]][[4]]
#> [1] 6 9 6 7 8 8 8 8 8 8
#>
#> [[2]][[5]]
#> [1] 8 7 6 6 5 5 5 5 5 5
#>
#> [[2]][[6]]
#> [1] 4 5 5 6 5 2 2 2 2 2
#>
#> [[2]][[7]]
#> [1] 3 4 4 5 6 6 6 6 6 6
#>
#> [[2]][[8]]
#> [1] 8 7 7 6 6 7 7 7 8 8
#>
#>
rm(list=c("Xaze_compl","yaze_compl"))
# }