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

fansi::set_knit_hooks(knitr::knit_hooks)
library(statim)

## -----------------------------------------------------------------------------
sleep |>
    define_model(extra %by% group) |>
    prepare(T_TEST, .ci = 0.9) |> 
    conclude() |>
    tidy()

## -----------------------------------------------------------------------------
mtcars |>
    define_model(mpg ~ .) |>
    prepare(LINEAR_REG) |>
    conclude() |>
    tidy()

## -----------------------------------------------------------------------------
T_TEST(extra %by% group, sleep, .ci = 0.9)
LINEAR_REG(mpg ~ ., mtcars)

## -----------------------------------------------------------------------------
# Classical
sleep |>
    define_model(x_by(extra, group)) |>
    prepare_test(T_TEST) |>
    conclude()

# Permutation: one line added
sleep |>
    define_model(x_by(extra, group)) |>
    prepare_test(T_TEST) |>
    via("permute", n = 999L) |>
    conclude()

## ----collapse=FALSE, comment=""-----------------------------------------------
sleep |>
    define_model(extra %by% group) |>
    prepare_test(T_TEST) |>
    state_null(
        MU(extra, group == "1") >= MU(extra, group == "2")
    ) |>
    conclude()