suppressMessages(library(brms))
brm <- (\(...){capture.output(suppressMessages(suppressWarnings(x<-brms::brm(..., refresh = 0))));x})
set.seed(3)
fit <- brm(y ~ x, data = data.frame(y = 1, x = 0),
init = list(list(sigma = 1)),
save_warmup = TRUE, chains = 1, warmup = 1, iter = 2)
as_draws_df(fit, inc_warmup = TRUE)
#> # A draws_df: 2 iterations, 1 chains, and 5 variables
#> b_Intercept b_x sigma lprior lp__
#> 1 0.92 0.63 2.6 -3.8 -4.7
#> 2 0.92 0.63 2.6 -3.8 -4.7
#> # ... hidden reserved variables {'.chain', '.iteration', '.draw'}
Created on 2023-03-04 with reprex v2.0.2