samplesize_ttest.R

report_samplesize_t.test <- function(pwr, drop_out){
  n_raw <- ceiling(pwr$n)
  n_total <- (n_raw + ceiling(n_raw * drop_out))*2
  glue::glue("A two-sample t-test to detect a difference of {round(pwr$delta, 1)} l/min between the groups with an SD of {round(pwr$sd, 1)} l/min has power of {pwr$power*100}% if {ceiling(pwr$n)} patients per arm are randomized. Allowing for a drop-out of {drop_out*100}%  implies that {n_total} patients need to be randomized in total.")
}