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

## ----setup, message = FALSE---------------------------------------------------
library(mlstats)
library(dplyr)

## ----data---------------------------------------------------------------------
data("media_diary")
media_diary

## ----mldesc, warning = FALSE--------------------------------------------------
vars <- c("self_control", "wellbeing", "screen_time", "stress")

result <- mldesc(
  data  = media_diary,
  group = "person",
  vars  = vars
)

result

## ----tt-output, warning = FALSE-----------------------------------------------
result |>
  print(format = "tt")

## ----gt-install, eval = FALSE-------------------------------------------------
# install.packages("gt")

## ----gt-basic-----------------------------------------------------------------
result |>
  print(format = "gt")

## ----decompose----------------------------------------------------------------
media_diary |>
  decompose_within_between(
    group = "person",
    vars  = c("stress", "screen_time")
  ) |>
  select(starts_with("stress"))