rpartErr function

Calculate Error Rates for rpart model

Given an rpart model object, calculate training set error, 10-fold cross-validation error, and test set error.

rpartErr(train.rp, train, test, group = "type")

Arguments

• train.rp: Fitted lda model object.
• train: Training set data frame.
• test: Test set data frame.
• group: Factor that identifies groups

Returns

Vector that holds training set error, 10-fold cross-validation error, and test set error rates.

Examples

## Not run:

data(spam, package='kernlab')
spam[,-58] <- scale(spam[,-58])
nr <- sample(1:nrow(spam))
spam01 <- spam[nr[1:3601],]     ## Use for training,
## if holdout not needed
spam2 <- spam[nr[3602:4601],]   ## Test
spam01.rp <- rpart(type~., data=spam01, cp=0.0001)
rpRates <- rpartErr(train.rp=spam01.rp, train=spam01, test=spam2,
                    group='type')
## End(Not run)