Вот метод, использующий пакет каретки, и он включает воспроизводимый пример (т.е. небольшой код, который кто-то может быстро запустить, чтобы помочь вам) из файлов справки пакета каретки. @llottmanhill прав, вы получите дополнительную помощь, когда расскажете нам, что вы пытаетесь сделать. Сейчас ваш вопрос довольно расплывчатый. Однако попробуйте:
library(caret)
library(MASS)
fit <- lda(Species ~ ., data = iris)
model <- predict(fit)$class
irisTabs <- table(model, iris$Species)
## When passing factors, an error occurs with more
## than two levels
sensitivity(model, iris$Species)
## When passing a table, more than two levels can
## be used
sensitivity(irisTabs, "versicolor")
specificity(irisTabs, c("setosa", "virginica"))