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

## -----------------------------------------------------------------------------
fit <- lm(mpg ~ wt * am, data = mtcars)
ravel::ravel_summarize_model(fit)

## -----------------------------------------------------------------------------
cat(ravel::ravel_interpret_model(fit))

## -----------------------------------------------------------------------------
ravel::ravel_suggest_diagnostics(fit)

## -----------------------------------------------------------------------------
cat(ravel::ravel_draft_quarto_section("results", model = fit))

## -----------------------------------------------------------------------------
cat(ravel::ravel_draft_quarto_section("diagnostics", model = fit))

## -----------------------------------------------------------------------------
action <- ravel::ravel_preview_code("
summary(mtcars$mpg)
quantile(mtcars$mpg)
")
action$label

## -----------------------------------------------------------------------------
approved <- ravel::ravel_approve_action(action)
ravel::ravel_run_code(approved)

## -----------------------------------------------------------------------------
analysis_objects <- list(
  data = mtcars,
  formula = mpg ~ wt * am,
  model = fit
)

lapply(analysis_objects, ravel::ravel_summarize_object)