Curva ROC e AUC
Examples
obs <- sample(0:1, 100, TRUE)
esc <- runif(100)
rnp_curva_roc(obs, esc, positivo = 1)
#>
#> ── Curva ROC ───────────────────────────────────────────────────────────────────
#>
#> ── Curva
#> # A tibble: 100 × 3
#> fpr tpr limiar
#> <dbl> <dbl> <dbl>
#> 1 0.0217 0 1.000
#> 2 0.0217 0.0185 0.996
#> 3 0.0435 0.0185 0.961
#> 4 0.0652 0.0185 0.944
#> 5 0.0652 0.037 0.943
#> 6 0.087 0.037 0.930
#> 7 0.087 0.0556 0.907
#> 8 0.109 0.0556 0.906
#> 9 0.130 0.0556 0.902
#> 10 0.152 0.0556 0.901
#> # ℹ 90 more rows
#> Auc: 0.4622