Как оценить правильность и соответствие модели (оценщик)

У меня есть дерево решений (но вопрос общий для любой другой модели оценки).

models[[1]]<- J48(NSP~., data=training)

Я хотел бы посмотреть, насколько хороша модель по данным тестирования:

pred <- predict(models[[1]], testing)

Я хотел бы получить количество правильных оценок моделей [[1]] по сравнению с фактическим (в столбце NSP тестирования). Как мне это сделать?

Есть ли другой способ оценить, насколько хороша моя модель (models[[1]]) или насколько она соответствует данным?