demo_stuff/epi_tests_demo.R

In ianhandel/epidemr: Tidy Epidemiology in R

library(tidyverse)
devtools::install_github("ianhandel/epidemr")
library(epidemr)

table(mtcars$am == 1, mtcars$cyl ==4, dnn = c("am==1", "cyl==4"))

epi_tests(mtcars, am == 1, cyl == 4)

epi_tests(table(mtcars$am==1, mtcars$cyl ==4))

res <- epi_tests(c(8, 5, 3, 16))

print(res) # uses epiR::print.epi.tests() method

tidy(res) # uses epidemr::tidy.epi.tests() method

plot(res) # uses epidemr::plot.epi.tests() method