`as_rtf` for both `gs_design` class and `fixed_design` class

[LittleBeannie]

fixed_design class

# Enrollment rate
enroll_rate <- define_enroll_rate(
   duration = 18,
   rate = 20
 )

 # Failure rates
 fail_rate <- define_fail_rate(
   duration = c(4, 100),
   fail_rate = log(2) / 12,
   dropout_rate = .001,
   hr = c(1, .6)
 )

 # Study duration in months
 study_duration <- 36

 # Experimental / Control randomization ratio
 ratio <- 1

 # 1-sided Type I error
 alpha <- 0.025

 # Type II error (1 - power) 
a <- 0.1

 fixed_design_ahr(
   alpha = alpha, power = 1 - beta,
   enroll_rate = enroll_rate, fail_rate = fail_rate,
   study_duration = study_duration, ratio = ratio
 ) %>%
   summary() %>%
   as_gt()

gs_design class

gs_design_ahr() %>%
   summary() %>%
   as_gt()

[nanxstats]

I would love to see a demo for this new feature. 🥇