## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")

## -----------------------------------------------------------------------------
library(precrec)

# 10 positives and 10 negatives, shipped with the package
data(P10N10)

curves <- evalmod(scores = P10N10$scores, labels = P10N10$labels)

## ----fig.width = 7, fig.height = 4--------------------------------------------
plot(curves)

## ----fig.width = 7, fig.height = 4--------------------------------------------
library(ggplot2)

autoplot(curves)

## -----------------------------------------------------------------------------
knitr::kable(auc(curves))

## -----------------------------------------------------------------------------
head(as.data.frame(curves))