strategy <- list(
formula = y ~ trt:X1,
family = binomial(),
rho = NA,
N = 1000L,
marginal_distns = NA,
marginal_params = NA,
trt_var = "trt",
iter = 2000,
warmup = 500,
chains = 4)
ipd <- data.frame(
trt = sample(c("A", "C"), size = 100, replace = TRUE),
X1 = rnorm(100, 1, 1),
y = sample(c(1,0), size = 100, prob = c(0.7, 0.3), replace = TRUE))
ald <- data.frame(
trt = c(NA, NA, "B", "C", "B", "C"),
variable = c("X1", "X1", "y", "y", NA, NA),
statistic = c("mean", "sd", "sum", "sum", "N", "N"),
value = c(0.5, 0.1, 10, 12, 20, 25))
calc_gcomp_bayes(
strategy,
analysis_params = list(
ipd = ipd, ald = ald,
ref_trt = "C",
ipd_comp = "A"))
Run the code above in your browser using DataLab