Improve output

Author: NightlordTW

R/SampleSize.R

@@ -501,7 +501,16 @@ sampleSize <- function(mu_list, varcov_list = NA, sigma_list = NA, cor_mat = NA,
     stop("Names included in the list_comparator should be coherent with the names in the arm_names vector")
   }
 
-  param.d <- list(nsim=nsim,power=power,alpha=alpha,dtype=dtype,ctype=ctype,lognorm=lognorm,vareq=vareq,k=k,adjust=adjust,dropout=dropout,list_lequi.tol=list_lequi.tol, list_uequi.tol=list_uequi.tol)
+  param.d <- list(nsim=nsim,
+                  power=power,
+                  alpha=alpha,
+                  dtype=dtype,
+                  ctype=ctype,
+                  lognorm=lognorm,
+                  vareq=vareq,
+                  k=k,
+                  adjust=adjust,
+                  dropout=dropout,list_lequi.tol=list_lequi.tol, list_uequi.tol=list_uequi.tol)
 
   if(is.na(ncores)) {
     ncores <- parallel::detectCores() - 1

R/helper.r

@@ -24,6 +24,14 @@ print.simss <- function(x, ...) {
   message("Sample Size Calculation Results")
   cat("-------------------------------------------------------------\n")
   cat(paste0("Study Design: ", x$param.d$dtype, " trial targeting ",100*tpower,"% power with a ",100*alpha, "% type-I error.\n"))
+  cat("Endpoints Tested:\n")
+  for (i in 1:length(x$param$list_comparator)) {
+    cat(paste0("  - ", paste(x$param$list_comparator[[i]], collapse = " vs. "), ": ",
+               paste(x$param$list_y_comparator[[i]], collapse = ", "), "\n")) #AUCinf and Cmax (multiple co-primary endpoints, m = 2)\n"))
+  }
+
+
+
   cat("-------------------------------------------------------------\n")
   print(output, row.names = FALSE)  # Suppress row numbers
   #cat("-------------------------------------------------------------\n")