## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
library(ReproStat)
set.seed(20260324)

## ----fit-example--------------------------------------------------------------
diag_obj <- run_diagnostics(
  mpg ~ wt + hp + disp,
  data = mtcars,
  B = 150,
  method = "bootstrap"
)

## ----coef-stability-----------------------------------------------------------
coef_stability(diag_obj)

## ----pvalue-stability---------------------------------------------------------
pvalue_stability(diag_obj)

## ----selection-stability------------------------------------------------------
selection_stability(diag_obj)

## ----prediction-stability-----------------------------------------------------
prediction_stability(diag_obj)

## ----ri-----------------------------------------------------------------------
reproducibility_index(diag_obj)

## ----ri-ci--------------------------------------------------------------------
ri_confidence_interval(diag_obj, R = 300, seed = 1)