# Clinical Trial Utilities

#R
benchmark(a<-sampleN.TOST(theta0=1, theta1=0.8, theta2=1.25, CV=0.3, alpha=0.05, targetpower=0.9, logscale=TRUE, design="2x2", method="owenq", robust=TRUE, print=FALSE), columns = c("test", "replications", "elapsed", "relative", "user.self", "sys.self", "user.child", "sys.child"),replications = 10000)
                                                                                                                                                                                    test
1 a <- sampleN.TOST(theta0 = 1, theta1 = 0.8, theta2 = 1.25, CV = 0.3, alpha = 0.05, targetpower = 0.9, logscale = TRUE, design = "2x2", method = "owenq", robust = TRUE, print = FALSE)
  replications elapsed relative user.self sys.self user.child sys.child
1        10000   18.86        1      18.7     0.02         NA        NA
>

#Julia

julia> b = @benchmark ClinicalTrialUtilities.beSampleN(;theta0=1.0, theta1=0.8, theta2=1.25, cv=0.3, alpha=0.05, beta=0.1, logscale=true, method="owenq");

julia> bBenchmarkTools.Trial:
  memory estimate:  5.48 KiB
  allocs estimate:  222
  --------------
  minimum time:     54.655 μs (0.00% GC)
  median time:      56.066 μs (0.00% GC)
  mean time:        65.078 μs (1.61% GC)
  maximum time:     5.405 ms (97.76% GC)
  --------------
  samples:          10000
  evals/sample:     1



  > library(rbenchmark)
  > benchmark(blakerci(38,100,conf.level=0.95,tolerance=1e-05))
                                                       test replications elapsed
  1 blakerci(38, 100, conf.level = 0.95, tolerance = 1e-05)          100    1.52
    relative user.self sys.self user.child sys.child
  1        1       1.5        0         NA        NA
  > 
