In c-marc/irma: What the Package Does (One Line, Title Case)

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

library(tidyverse)
library(irma)

Make a dataset:

n <- 80
p <- 0.2
se <- 0.8
sp <- 0.7

dat <- make_data(n, p, se, sp)
dat

Check implied parameters (consequence of rounding):

dat %>% get_param_from_data()

Plot it

dat %>%
  mutate(
    test=factor(test, labels=c("T-","T+")),
    disease=factor(disease, labels=c("D-","D+"))
  ) %>%
  autoplot.irma_data(fill_by=disease)

Or the other way:

dat %>%
  mutate(
    test=factor(test, labels=c("T-","T+")),
    disease=factor(disease, labels=c("D-","D+"))
  ) %>%
  autoplot.irma_data(fill_by=test)