Skip to content

Instantly share code, notes, and snippets.

@bmfazio
Created March 4, 2023 22:38
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save bmfazio/168cd5b86621f308485c4e02c40329aa to your computer and use it in GitHub Desktop.
Save bmfazio/168cd5b86621f308485c4e02c40329aa to your computer and use it in GitHub Desktop.
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

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment