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

## -----------------------------------------------------------------------------
ravel::ravel_list_providers()

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

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

## -----------------------------------------------------------------------------
action <- ravel::ravel_preview_code("summary(mtcars$mpg)")
approved <- ravel::ravel_approve_action(action)
ravel::ravel_run_code(approved)

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