Imporve output

Author: NightlordTW

R/helper.r

@@ -18,7 +18,9 @@ print.simss <- function(x, ...) {
   upower <- round(x$response[["power_UCI"]], digits = 3)
   sst <- x$response[["n_total"]]
 
-  message(cat(paste0("Given a ",100*tpower,"%  target power with 100(1-2*",alpha, ")% confidence level.")))
+  message(cat("### Sample Size Calculation Results ###"))
+  message(cat(paste0("For a study targeting ",100*tpower,"% power with a ",100*alpha, "% type-I error.")))
+  message(cat("-------------------------------------------------------------"))
   message(cat(paste0("The total required sample size to achieve ",100*power,"% power is ",sst," sample units.\n")))
   print(x$response[,-1], row.names = FALSE)
 }