In $[53]$: # Make predictions on the test data

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

# Construct the confusion matrix

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

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

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

# Print nicely formatted confusion matrix

print$("$Confusion Matrix"$)$

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

Error in predict.rpart$($pruned$\_$model, newdata $=$ test.data$4,$ type $=$ "class"$)$: Invalid prediction for "rpart" object

Traceback:

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

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

stop$("$Invalid prediction for "rpart" object"$)$