Specify comparison

Author: tdebray123

vignettes/sampleSize_parallel.Rmd

@@ -59,7 +59,7 @@ lequi_upper <- setNames(rep(log(1.25), 5), paste0("y", 1:5))
 ss <- sampleSize(power = 0.8, alpha = 0.05,
                  mu_list = list("R" = mu_r, "T" = mu_t),
                  sigma_list = list("R" = sigma, "T" = sigma),
-                 list_comparator = list(c("R", "T")),
+                 list_comparator = list("T_vs_R" = c("R", "T")),
                  list_lequi.tol = list("T_vs_R" = lequi_lower),
                  list_uequi.tol = list("T_vs_R" = lequi_upper),
                  dtype = "parallel", ctype = "DOM", lognorm = FALSE, 
@@ -99,6 +99,7 @@ ss <- sampleSize(power = 0.8, alpha = 0.05,
                  mu_list = list("R" = mu_r, "T" = mu_t),
                  sigma_list = list("R" = sigma, "T" = sigma),
                  rho = 0.8, # high correlation between the endpoints
+                 list_comparator = list("T_vs_R" = c("R", "T")),
                  list_lequi.tol = list("T_vs_R" = lequi_lower),
                  list_uequi.tol = list("T_vs_R" = lequi_upper),
                  dtype = "parallel", ctype = "DOM", lognorm = FALSE,