## ----include = FALSE---------------------------------------------------------- knitr::opts_chunk$set( collapse = TRUE, comment = "#>", out.width = "100%" ) ## ----setup-------------------------------------------------------------------- library(bregr) ## ----------------------------------------------------------------------------- rv <- br_pipeline( data = mtcars, y = "mpg", x = c("cyl", "disp*hp"), x2 = "am", method = "lm" ) ## ----------------------------------------------------------------------------- br_get_results(rv, tidy = TRUE) ## ----fig.width=8, fig.height=4, dpi=150--------------------------------------- br_show_forest(rv) ## ----fig.width=7, fig.height=3------------------------------------------------ br_show_forest_ggstats(rv, idx = 2) ## ----fig.width=7, fig.height=4------------------------------------------------ br_show_forest_ggstats(rv) ## ----------------------------------------------------------------------------- br_avail_methods() ## ----------------------------------------------------------------------------- data <- data.frame( x = rnorm(100) ) data$y <- rpois(100, exp(1 + data$x)) head(data) ## ----------------------------------------------------------------------------- rv <- br_pipeline( data = data, y = "y", x = "x", method = 'quasi(variance = "mu", link = "log")' ) br_get_results(rv, tidy = TRUE) ## ----------------------------------------------------------------------------- glm(y ~ x, data = data, family = quasi(variance = "mu", link = "log")) |> summary()