#' data(grwth_data)
# Fit the model
lmm <- lmmModel(
data = grwth_data,
sample_id = "subject",
time = "Time",
treatment = "Treatment",
tumor_vol = "TumorVolume",
trt_control = "Control",
drug_a = "DrugA",
drug_b = "DrugB",
combination = "Combination"
)
PostHocPwr(lmm, nsim = 10) # 10 simulations for shorter computing time
# Using a seed to obtain reproducible results
PostHocPwr(lmm, seed = 123, nsim = 10)
# Calculating the power for an specific day
PostHocPwr(lmm, nsim = 10, time = 6)
Run the code above in your browser using DataLab