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

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

## -----------------------------------------------------------------------------
grim(
  x = c(5.2, 5),
  n = NA,
  digits_x = c(1, 0),
  items_averaged = 1,
  data_type = "integer"
)

## -----------------------------------------------------------------------------
grim(
  x = c(5.19, 5.2, 5.2),
  n = c(28, 5, 28),
  digits_x = NA,
  items_averaged = 1,
  data_type = "integer"
)

## -----------------------------------------------------------------------------
roundwork::bound_numerators(
  5.19,
  digits = 2,
  rounding = "up_or_down",
  threshold = 5,
  symmetric = FALSE
)

## -----------------------------------------------------------------------------
roundwork::sum_range(
  5.19,
  n_items = 28,
  digits = 2,
  rounding = "up_or_down",
  threshold = 5,
  symmetric = FALSE
)
roundwork::sum_range(
  5.18,
  n_items = 28,
  digits = 2,
  rounding = "up_or_down",
  threshold = 5,
  symmetric = FALSE
)

## -----------------------------------------------------------------------------
(1.03 - 0.005) * 40 > 41

## -----------------------------------------------------------------------------
grim(
  x = 1.03,
  n = 40,
  digits_x = 2,
  items_averaged = 1,
  data_type = "integer"
)

## ----error = TRUE-------------------------------------------------------------
try({
grim(
  x = 5.19,
  n = 1e14,
  digits_x = 2,
  items_averaged = 1,
  data_type = "integer"
)
})

## ----error = TRUE-------------------------------------------------------------
try({
grimmer(
  x = 1,
  sd = 1.1e6,
  n = 2,
  digits_x = 0,
  digits_sd = 0,
  items_averaged = 1,
  data_type = "integer"
)
})

## -----------------------------------------------------------------------------
decimal_places(c("3.70", 3.70))

## -----------------------------------------------------------------------------
100 * 0.29 == 29
grim(
  x = 5.2,
  n = 100 * 0.29,
  digits_x = 1,
  items_averaged = 1,
  data_type = "integer"
)