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

## -----------------------------------------------------------------------------
library(testflow)
cardio <- make_cardio_data()
test_one_sample(cardio, sbp_3m, mu = 140)

## -----------------------------------------------------------------------------
test_two_groups(sbp_3m ~ sex, data = cardio)

## -----------------------------------------------------------------------------
test_paired(sbp_3m ~ sbp_baseline, data = cardio)

## -----------------------------------------------------------------------------
test_groups(sbp_3m ~ treatment, data = cardio)

## -----------------------------------------------------------------------------
test_factorial(sbp_3m ~ sex * treatment, data = cardio)

## -----------------------------------------------------------------------------
test_repeated(cardio, c(sbp_baseline, sbp_3m, sbp_6m), id = id)

## -----------------------------------------------------------------------------
test_categorical(treatment ~ controlled_3m, data = cardio)

## -----------------------------------------------------------------------------
test_repeated_categorical(cardio, c(controlled_baseline, controlled_3m, controlled_6m))

## -----------------------------------------------------------------------------
test_correlation(sbp_3m ~ age, data = cardio)

## -----------------------------------------------------------------------------
test_outliers(c(sbp_3m, ldl, crp), data = cardio)