Расчет характеристик теста

Question

У меня есть таблица 2х2 на случай непредвиденных обстоятельств с большим набором данных:

> ct 
     disease 
    test 0 1 
    no 118 12 
    yes 24 46 

, и я хотел бы, чтобы быстро получить различные (медицинские) диагностические тест-характеристики, такие как

• Чувствительность
• Специфика
• Коэффициент правдоподобия +
• Коэффициент правдоподобия -
• процент ложных срабатываний
• ложноотрицательное
• вероятностных болезни
• значения Pred положительного значение
• Pred отрицательное
• р (отр тест неправильно)
• р (положительный тест)
• p (отрицательный тест)
• Общая точность

с соответствующими 95% -ными коэффициентами. Есть ли пакет/функция, которая делает это? Большое спасибо.

Answer 1

OK, epi.tests(t, verbose=T) это.

Answer 2

Возможно, вы можете написать пользовательскую функцию для каждой из этих тестовых характеристик. Это обеспечило бы правильный формат для вашей конкретной проблемы и, вероятно, быстрее, чем весь Google, который вы уже делаете. Каждый из них должен быть довольно быстрым. Например, чувствительность:

sens <- function(ct) { ct[2,2]/sum(ct[,2]) } 

И Специфичность:

spec <- function(ct) { ct[1,1]/sum(ct[,1]) }