In $[24]$:

# Make predictions on the test data

pred predict$($pruned$\_$model$1,$ newdata$=$test.data$1,$ type$=$'class'$)$

# Construct the confusion matrix

conf.matrix table$($test$.$data$1$$default, pred$)[,$c$(\text{'}$no$\text{'},$ 'yes'$)]$

rownames$($conf$.$matrix paste$("$Actual default $",$ rownames$($conf$.$matrix$),$ sep $="$: $")$

colnames$($conf$.$matrix paste$("$Prediction default $",$ colnames$($conf$.$matrix$),$ sep $="$: $")$

# Print nicely formatted confusion matrix

print$("$Confusion Matrix"$)$

format $($conf$.$matrix, justify$=$"centre", digit$=2)$

Error in eval$($predvars$,$ data, env$)$: object 'economy' not found

Traceback:

predict$($pruned$\_$model$1,$ newdata $=$ test.data$1,$ type $=$ "class"$)$

predict.rpart$($pruned$\_$model$1,$ newdata $=$ test.data$1,$ type $=$ "class"$)$

model.frame$($Terms$,$ newdata, na$.$action $=$ na$.$action, xlev $=$ attr$($object$,$

"xlevels"$))$

model.frame.default$($Terms$,$ newdata, na$.$action $=$ na$.$action, xlev $=$ attr$($object$,$

"xlevels"$))$

eval$($predvars$,$ data, env$)$

eval$($predvars$,$ data, env$)$