bml (version 0.9.0)

summary.bml: Summarize a fitted bml model

Description

S3 method for summarizing bml model objects. Returns a formatted table of parameter estimates with posterior means, standard deviations, and credible intervals, along with model information and convergence statistics.

Usage

# S3 method for bml
summary(object, r = 3, ...)

Value

A data frame of class "bml_summary" containing rounded parameter estimates with the following columns:

• Parameter: Labeled parameter names

• mean: Posterior mean

• sd: Posterior standard deviation

• lb: Lower bound of 95% credible interval

• ub: Upper bound of 95% credible interval

The object includes metadata attributes printed above the table:

• Outcome family and link function

• Estimate type (posterior mean from MCMC)

• Credible interval specification (95% equal-tailed)

• Level specification (mm and hm block details)

• DIC (Deviance Information Criterion) for model comparison

Arguments

object

A fitted model object of class "bml" returned by bml.

r

Number of decimal places for rounding numeric output. Default: 3.

...

Additional arguments (currently unused).

Author

Benjamin Rosche <[e-mail]>

Details

The summary method rounds all numeric values for readability while preserving the underlying structure and metadata from the fitted model. All columns remain accessible via standard data frame indexing (e.g., $Parameter, $mean).

For Cox models with piecewise baseline hazards (when cox_intervals is specified), the outcome description includes the number of intervals used.

See Also

bml, monetPlot, mcmcDiag

Examples

# \donttest{
data(coalgov)

# Fit model
m1 <- bml(
  Surv(dur_wkb, event_wkb) ~ 1 + majority +
    mm(id = id(pid, gid), vars = vars(cohesion), fn = fn(w ~ 1/n), RE = TRUE) +
    hm(id = id(cid), type = "RE"),
  family = "Weibull",
  data = coalgov
)

# View summary
summary(m1)

# Summary with more decimal places
summary(m1, r = 4)

# Access specific columns
s <- summary(m1)
s$Parameter  # Parameter names
s$mean       # Posterior means
s$lb         # Lower credible bounds

# Custom posterior summaries (requires monitor = TRUE)
# Extract posterior draws as a tidy data frame
draws <- coda::as.mcmc.list(m1$jags.out$BUGSoutput) |> as.matrix() |> as_tibble()

# Select specific parameters and compute custom summaries
draws |>
  dplyr::select(dplyr::starts_with("b[")) |>
  tidyr::pivot_longer(everything(), names_to = "param") |>
  dplyr::group_by(param) |>
  dplyr::summarise(
    median = median(value),
    mad    = mad(value),
    q05    = quantile(value, 0.05),
    q95    = quantile(value, 0.95)
  )
# }