## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>",
                      fig.width = 7, fig.height = 7)

## ----setup, message = FALSE---------------------------------------------------
library(shewhartr)

## ----eval = FALSE-------------------------------------------------------------
# fit <- shewhart_i_mr(bottle_fill, value = ml, index = observation)
# shewhart_diagnostics(fit)

## ----eval = FALSE-------------------------------------------------------------
# bc <- shewhart_box_cox(bottle_fill, value = ml)
# print(bc)
# ggplot2::autoplot(bc)