Description Usage Arguments Value Note Author(s) See Also Examples

Extract subsets of resampling-based prediction error results.

1 2 3 4 5 |

`x` |
an object inheriting from class |

`select` |
a character, integer or logical vector indicating the prediction error results to be extracted. |

`...` |
currently ignored. |

`subset` |
a character, integer or logical vector indicating the subset of models for which to keep the prediction error results. |

An object similar to `x`

containing just the selected results.

Duplicate indices in `subset`

or `select`

are removed such
that all models and prediction error results are unique.

Andreas Alfons

`perryFit`

, `perrySelect`

,
`perryTuning`

, `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 | ```
library("perryExamples")
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
fit50 <- ltsReg(Y ~ ., data = coleman, alpha = 0.5)
cv50 <- perry(fit50, splits = folds, fit = "both",
cost = rtmspe, trim = 0.1)
# 75% subsets
fit75 <- ltsReg(Y ~ ., data = coleman, alpha = 0.75)
cv75 <- perry(fit75, splits = folds, fit = "both",
cost = rtmspe, trim = 0.1)
# combine results into one object
cv <- perrySelect("0.5" = cv50, "0.75" = cv75)
cv
# extract reweighted LTS results with 50% subsets
subset(cv50, select = "reweighted")
subset(cv, subset = c(TRUE, FALSE), select = "reweighted")
``` |

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.