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

## ----setup, include = FALSE---------------------------------------------------
library(scrutiny)

## -----------------------------------------------------------------------------
percentage_of(absolute = 40, percentage = 33, n = 120, digits_percentage = 0)
percentage_of(40, 34, 120, digits_percentage = 0)

percentage_of(
  absolute = 40,
  percentage = 33.3,
  n = 120,
  digits_percentage = 1
)

## -----------------------------------------------------------------------------
df <- tibble::tibble(
  absolute = c(40, 37, 25),
  percentage = c(33, 31, 20),
  n = 120
)

df |>
  percentage_of_map(digits_percentage = 0)

## -----------------------------------------------------------------------------
df |>
  percentage_of_map(digits_percentage = 0) |>
  audit()

## -----------------------------------------------------------------------------
df |>
  percentage_of_map_seq(digits_percentage = 0, var = "n")

## -----------------------------------------------------------------------------
df |>
  percentage_of_map_seq(digits_percentage = 0, var = "n") |>
  audit()

## -----------------------------------------------------------------------------
add_up_to(c(40, 37, 43), total = 120)
add_up_to(c(40, 37, 44), total = 120)

## -----------------------------------------------------------------------------
df_groups <- tibble::tribble(
  ~n_control , ~n_treatment , ~n_waitlist , ~total ,
          40 ,           37 ,          43 ,    120 ,
          25 ,           26 ,          24 ,     75 ,
          31 ,           30 ,          30 ,     90 ,
)

df_groups |>
  add_up_to_map(summands = starts_with("n_"))

df_groups |>
  add_up_to_map(summands = starts_with("n_")) |>
  audit()