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

## -----------------------------------------------------------------------------
library(testflow)
cardio <- make_cardio_data()
x <- test_two_groups(sbp_3m ~ sex, data = cardio)
x
report(x)
plot(x)