tests/testthat/_snaps/optimize_design.md

In ppseq: Design Clinical Trials using Sequential Predictive Probability Monitoring

optimize_design works for one-sample case

Code
  lapply(optimize_design(cal_tbl), as.data.frame)
Output
  $`Optimal accuracy design:`
    pp_threshold ppp_threshold Type I error     Power Average N under the null
  1          0.9          0.05   0.08333333 0.9033333                       25
    Average N under the alternative
  1                              25

  $`Optimal efficiency design:`
    pp_threshold ppp_threshold Type I error     Power Average N under the null
  1          0.9          0.05   0.08333333 0.9033333                       25
    Average N under the alternative
  1                              25

optimize_design works for two-sample case

Code
  lapply(optimize_design(cal_tbl), as.data.frame)
Output
  $`Optimal accuracy design:`
    pp_threshold ppp_threshold Type I error Power Average N under the null
  1          0.9           0.2         0.06  0.93                    14.95
    Average N under the alternative
  1                           24.25

  $`Optimal efficiency design:`
    pp_threshold ppp_threshold Type I error Power Average N under the null
  1          0.9           0.2         0.06  0.93                    14.95
    Average N under the alternative
  1                           24.25

ppseq documentation built on April 18, 2023, 1:08 a.m.