Description Usage Arguments Value Author(s) See Also Examples
Extract subsets of results from (repeated) K-fold cross-validation.
1 2 3 4 5 6 |
x |
an object inheriting from class |
subset |
a character, integer or logical vector indicating the subset of models for which to keep the cross-validation results. |
select |
a character, integer or logical vector indicating the columns of cross-validation results to be extracted. |
... |
currently ignored. |
An object similar to x
containing just the
selected results.
Andreas Alfons
cvFit
, cvSelect
,
cvTuning
, subset
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | library("robustbase")
data("coleman")
set.seed(1234) # set seed for reproducibility
## set up folds for cross-validation
folds <- cvFolds(nrow(coleman), K = 5, R = 10)
## compare raw and reweighted LTS estimators for
## 50% and 75% subsets
# 50% subsets
fitLts50 <- ltsReg(Y ~ ., data = coleman, alpha = 0.5)
cvFitLts50 <- cvLts(fitLts50, cost = rtmspe, folds = folds,
fit = "both", trim = 0.1)
# 75% subsets
fitLts75 <- ltsReg(Y ~ ., data = coleman, alpha = 0.75)
cvFitLts75 <- cvLts(fitLts75, cost = rtmspe, folds = folds,
fit = "both", trim = 0.1)
# combine results into one object
cvFitsLts <- cvSelect("0.5" = cvFitLts50, "0.75" = cvFitLts75)
cvFitsLts
# extract reweighted LTS results with 50% subsets
subset(cvFitLts50, select = "reweighted")
subset(cvFitsLts, subset = c(TRUE, FALSE), select = "reweighted")
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.