Точность рассчитывается следующим образом: (Истинные позитивы + Истинные негативы) / (Истинные позитивы + Истинные негативы + Ложные позитивы + Ложные негативы)
Вот как вы можете это сделать (вторая последняя строка):
test <- c()
test$get_admission <- c(rep(0, 20), rep(1, 80))
predictTest <- c(rep(0, 1), rep(0.6, 99))
confusion <- table(test$get_admission, predictTest >= 0.5)
confusion
accuracy <- (confusion[2, 2] + confusion[1, 1]) / sum(confusion)
accuracy