library(rpart)
tree <- rpart(Risk_Flag~.,data=data_train)
pred.tree <- predict(tree, newdata = data_test)
accuracy.meas(data_test$Risk_Flag, pred.tree)
call:
accuracy.meas(response = data_test$Risk_Flag, predicted = pred.tree)
Error in accuracy.meas(data_test$Risk_Flag, pred.tree) : Response and predicted must have the same length.
length(pred.tree)
length(data_test$Risk_Flag)
[1] 1866
[1] 933