Блог

Есть ли способ оптимизировать визуализацию для нескольких AUC и CI для разных моделей?

 roc1 <- roc(outcome ~ variable1)
roc2 <- roc(outcome ~ variable2)
...
ci(roc1)
ci(roc2)
...

 

Моя цель — избежать вставки копирования во многие разные модели, чтобы избежать ошибок и иметь вывод / переменную, подобную этой

             AUC       CI
Model 1     0.0       0.0
Model 2     0.0       0.0
..           ..       ..
 

Ценю рекомендации,

Создайте вектор всех переменных ( variable1 , variable2 ) в примере и используйте map функцию, чтобы получить результат, объединенный в один фрейм данных.

 library(pROC)

n <- 2
vars <- paste0('variable', 1:n)
map_df(mget(vars), function(x) {
  tmp <- roc(mtcars$cyl~x)
  c(auc = auc(tmp), ci = ci(tmp))
}, .id = 'model') -> result

result