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

## ----setup--------------------------------------------------------------------
library(baselinr)
data(tutoring)
head(tutoring)

## -----------------------------------------------------------------------------
baseline_covs <- c("pretest", "attendance", "age", "female", "frpl", "ell")

equiv <- baseline_equivalence(tutoring, treatment = "treat",
                              covariates = baseline_covs)

knitr::kable(equiv, digits = 3)

## -----------------------------------------------------------------------------
equiv[, c("covariate", "effect_size", "wwc_category")]

## ----lovefig, eval = requireNamespace("ggplot2", quietly = TRUE), fig.width = 7, fig.height = 3----
love_plot(equiv)

## ----eval = FALSE-------------------------------------------------------------
# gt_baseline(equiv)