backup/plot.cv: Plot cross-validation results

In cvTools: Cross-Validation Tools for Regression Models

Plot cross-validation results

Description

Plot results from (repeated) K-fold cross-validation.

Usage

  ## S3 method for class 'cv'
 plot(x,
    method = c("bwplot", "densityplot", "xyplot", "dotplot"),
    ...)

  ## S3 method for class 'cvSelect'
 plot(x,
    method = c("bwplot", "densityplot", "xyplot", "dotplot"),
    ...)

Arguments

Details

For objects with multiple columns of cross-validation results, conditional plots are produced.

Value

An object of class "trellis" is returned invisibly. The update method can be used to update components of the object and the print method (usually called by default) will plot it on an appropriate plotting device.

Author(s)

Andreas Alfons

See Also

cvFit, cvSelect, cvTuning, bwplot, densityplot, xyplot, dotplot

Examples

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 LS, MM and LTS regression

# perform cross-validation for an LS regression model
fitLm <- lm(Y ~ ., data = coleman)
cvFitLm <- cvLm(fitLm, cost = rtmspe, 
    folds = folds, trim = 0.1)

# perform cross-validation for an MM regression model
fitLmrob <- lmrob(Y ~ ., data = coleman, k.max = 500)
cvFitLmrob <- cvLmrob(fitLmrob, cost = rtmspe, 
    folds = folds, trim = 0.1)

# perform cross-validation for an LTS regression model
fitLts <- ltsReg(Y ~ ., data = coleman)
cvFitLts <- cvLts(fitLts, cost = rtmspe, 
    folds = folds,  trim = 0.1)

# combine results into one object
cvFits <- cvSelect(LS = cvFitLm, MM = cvFitLmrob, LTS = cvFitLts)
cvFits

# plot results for the MM regression model
plot(cvFitLmrob, method = "bw")
plot(cvFitLmrob, method = "density")

# plot combined results
plot(cvFits, method = "bw")
plot(cvFits, method = "density")
plot(cvFits, method = "xy")
plot(cvFits, method = "dot")