lda_from_pls_cv | R Documentation |
For each number of components LDA/QDA models are created from the scores of the supplied PLS model and classifications are performed. This use of cross-validation has limitations. Handle with care!
lda_from_pls_cv(model, X, y, ncomp, Y.add = NULL)
model |
|
X |
predictors in the same format as in the |
y |
vector of grouping labels |
ncomp |
maximum number of PLS components |
Y.add |
additional responses |
matrix of classifications
VIP
(SR/sMC/LW/RC), filterPLSR
, shaving
,
stpls
, truncation
,
bve_pls
, ga_pls
, ipw_pls
, mcuve_pls
,
rep_pls
, spa_pls
,
lda_from_pls
, lda_from_pls_cv
, setDA
.
data(mayonnaise, package = "pls")
mayonnaise <- within(mayonnaise, {dummy <- model.matrix(~y-1,data.frame(y=factor(oil.type)))})
pls <- plsr(dummy ~ NIR, ncomp = 8, data = mayonnaise, subset = train,
validation = "CV", segments = 40, segment.type = "consecutive")
with(mayonnaise, {
classes <- lda_from_pls_cv(pls, NIR[train,], oil.type[train], 8)
colSums(oil.type[train] == classes) # Number of correctly classified out of 120
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.