hbl_plot_group {historicalborrowlong} | R Documentation |
Plot the groups of the hierarchical model and its benchmark models.
Description
Plot the groups against one another for a hierarchical model. and the independent and pooled benchmark models.
Usage
hbl_plot_group(
borrow,
pool,
independent,
outcome = c("response", "change", "diff")
)
Arguments
borrow |
A data frame returned by |
pool |
A data frame returned by |
independent |
A data frame returned by |
outcome |
Character of length 1, either |
Value
A ggplot
object
See Also
Other plot:
hbl_plot_borrow()
,
hbl_plot_tau()
Examples
if (!identical(Sys.getenv("HBL_TEST", unset = ""), "")) {
set.seed(0)
data <- hbl_sim_independent(
n_study = 2,
n_group = 2,
n_patient = 5,
n_rep = 3
)$data
tmp <- utils::capture.output(
suppressWarnings(
mcmc_borrow <- hbl_mcmc_hierarchical(
data,
chains = 1,
warmup = 10,
iter = 20,
seed = 0
)
)
)
tmp <- utils::capture.output(
suppressWarnings(
mcmc_pool <- hbl_mcmc_pool(
data,
chains = 1,
warmup = 10,
iter = 20,
seed = 0
)
)
)
tmp <- utils::capture.output(
suppressWarnings(
mcmc_independent <- hbl_mcmc_independent(
data,
chains = 1,
warmup = 10,
iter = 20,
seed = 0
)
)
)
borrow <- hbl_summary(mcmc_borrow, data)
pool <- hbl_summary(mcmc_pool, data)
independent <- hbl_summary(mcmc_independent, data)
hbl_plot_group(
borrow = borrow,
pool = pool,
independent = independent
)
}
[Package historicalborrowlong version 0.0.8 Index]