data("coleman")
# perform cross-validation for an LTS regression model
fit <- ltsReg(Y ~ ., data = coleman)
cv <- repCV(fit, K = 5, R = 10, fit = "both",
cost = rtmspe, trim = 0.1, seed = 1234)
# compare original and reshaped object
cv
perryReshape(cv)
Run the code above in your browser using DataLab