## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
# Print enough significant digits that values like `10.46` are not
# abbreviated to `10.5` in the output tibbles:
options(pillar.sigfig = 4)

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

## -----------------------------------------------------------------------------
grimmer(x = 7.3, sd = 2.51, n = 12, digits_x = 1, digits_sd = 2, items_averaged = 1, data_type = "integer")

## -----------------------------------------------------------------------------
flying_pigs1 <- tibble::tribble(
  ~x   , ~sd  , ~n ,
   8.9 , 2.81 , 25 ,
   2.6 , 2.05 , 25 ,
   7.2 , 2.89 , 25 ,
   3.6 , 3.11 , 25 ,
   9.2 , 7.13 , 25 ,
  10.4 , 2.53 , 25 ,
   7.3 , 3.14 , 25
)

grimmer_map(flying_pigs1, digits_x = 1, digits_sd = 2, items_averaged = 1, data_type = "integer")

## -----------------------------------------------------------------------------
flying_pigs2 <- tibble::tribble(
  ~x   , ~sd  , ~n ,
  5.90 , 2.19 , 40 ,
  5.71 , 1.42 , 40 ,
  3.50 , 1.81 , 40 ,
  3.82 , 2.43 , 40 ,
  4.61 , 1.92 , 40 ,
  5.24 , 2.51 , 40
)

flying_pigs2 |>
  grimmer_map(digits_x = 2, digits_sd = 2, items_averaged = 1, data_type = "integer")

flying_pigs2 |>
  grimmer_map(digits_x = 2, digits_sd = 2, items_averaged = 3, data_type = "integer")

## -----------------------------------------------------------------------------
flying_pigs1 |>
  grimmer_map(digits_x = 1, digits_sd = 2, items_averaged = 1, data_type = "integer") |>
  dplyr::filter(!consistency) |>
  explain_print()

## -----------------------------------------------------------------------------
flying_pigs1 |>
  grimmer_map(digits_x = 1, digits_sd = 2, items_averaged = 1, data_type = "integer") |>
  audit()