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

## ----review, eval=FALSE-------------------------------------------------------
# precheck <- wf_precheck(
#   design$data,
#   target,
#   id = design$roles$id
# )
# 
# trim_advice <- wf_auto_trim(
#   design,
#   target,
#   caps = c(2, 4, 6, 8),
#   max_deff = 6,
#   max_residual = 0.02
# )

## ----reports, eval=FALSE------------------------------------------------------
# wf_report(locked, audience = "decision")
# wf_report(locked, audience = "statistician")