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)),
                           treatment_effect_type = "sq",
                           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.3075707 0.05110113  2.1971139  2.4009181
#> Comparator -0.8400107 0.06699405 -0.9756821 -0.7214268
#> RD         -3.1475814 0.09458339 -3.3467200 -2.9738695