#' @export
#' @importFrom boot "boot"
#' @importFrom boot "boot.ci"
roc_ci <- function(data, conf= 0.95, type='basic', R = 100, index = 4) {
multi_roc_auc <- function(data, idx) {
results <- multi_roc(data[idx, ])$AUC
results <- unlist(results)
return(results)
}
res_boot <- boot(data, statistic=multi_roc_auc, R)
res_boot_ci <- boot.ci(res_boot, conf, type, index)
return(res_boot_ci)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.