Summary function to generate result table from bayesmsm

Usage

summary_bayesmsm(model)

Arguments

model: A model object from bayesmsm

Value

A summary table of the results from bayesmsm.

Examples

# Continuous outcome
testdata <- read.csv(system.file("extdata", "continuous_outcome_data.csv", package = "bayesmsm"))
model <- bayesmsm(ymodel = y ~ a_1+a_2,
                           nvisit = 2,
                           reference = c(rep(0,2)),
                           comparator = c(rep(1,2)),
                           family = "gaussian",
                           data = testdata,
                           wmean = rep(1, 1000),
                           nboot = 100,
                           optim_method = "BFGS",
                           seed = 890123,
                           parallel = TRUE,
                           ncore = 2)
summary_bayesmsm(model)
#>                  mean         sd       2.5%     97.5%
#> Reference   2.3085940 0.04479799  2.2341584  2.406479
#> Comparator -0.8348404 0.07909260 -0.9703483 -0.698226
#> RD         -3.1434345 0.09738841 -3.3193351 -2.961105