R Under development (unstable) (2025-06-03 r88266 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> if (requireNamespace("tinytest", quietly = TRUE)) {
+   tinytest::test_package("twotrials")
+ }

test-twotrials.R..............    0 tests    
test-twotrials.R..............    0 tests    
test-twotrials.R..............    0 tests    ----- PASSED      : test-twotrials.R<9--24>
 call| expect_equal(f(res$summaries$lower[i]), 0.975, info = paste0(mtd, 
 call| -->    ": p(lower 95% CI limit) should be 0.975"), tol = 0.001)
 info| 2TR: p(lower 95% CI limit) should be 0.975 
----- PASSED      : test-twotrials.R<9--24>
 call| expect_equal(f(res$summaries$est[i]), 0.5, info = paste0(mtd, 
 call| -->    ": p(median estimate) should be 0.5"), tol = 0.001)
 info| 2TR: p(median estimate) should be 0.5 
----- PASSED      : test-twotrials.R<9--24>
 call| expect_equal(f(res$summaries$upper[i]), 0.025, info = paste0(mtd, 
 call| -->    ": p(upper 95% CI limit) should be 0.025"), tol = 0.001)
 info| 2TR: p(upper 95% CI limit) should be 0.025 
----- PASSED      : test-twotrials.R<9--24>
 call| expect_equal(f(res$summaries$lower[i]), 0.975, info = paste0(mtd, 
 call| -->    ": p(lower 95% CI limit) should be 0.975"), tol = 0.001)
 info| MA: p(lower 95% CI limit) should be 0.975 
----- PASSED      : test-twotrials.R<9--24>
 call| expect_equal(f(res$summaries$est[i]), 0.5, info = paste0(mtd, 
 call| -->    ": p(median estimate) should be 0.5"), tol = 0.001)
 info| MA: p(median estimate) should be 0.5 
----- PASSED      : test-twotrials.R<9--24>
 call| expect_equal(f(res$summaries$upper[i]), 0.025, info = paste0(mtd, 
 call| -->    ": p(upper 95% CI limit) should be 0.025"), tol = 0.001)
 info| MA: p(upper 95% CI limit) should be 0.025 
----- PASSED      : test-twotrials.R<9--24>
 call| expect_equal(f(res$summaries$lower[i]), 0.975, info = paste0(mtd, 
 call| -->    ": p(lower 95% CI limit) should be 0.975"), tol = 0.001)
 info| Tippett: p(lower 95% CI limit) should be 0.975 
----- PASSED      : test-twotrials.R<9--24>
 call| expect_equal(f(res$summaries$est[i]), 0.5, info = paste0(mtd, 
 call| -->    ": p(median estimate) should be 0.5"), tol = 0.001)
 info| Tippett: p(median estimate) should be 0.5 
----- PASSED      : test-twotrials.R<9--24>
 call| expect_equal(f(res$summaries$upper[i]), 0.025, info = paste0(mtd, 
 call| -->    ": p(upper 95% CI limit) should be 0.025"), tol = 0.001)
 info| Tippett: p(upper 95% CI limit) should be 0.025 
----- PASSED      : test-twotrials.R<9--24>
 call| expect_equal(f(res$summaries$lower[i]), 0.975, info = paste0(mtd, 
 call| -->    ": p(lower 95% CI limit) should be 0.975"), tol = 0.001)
 info| Fisher: p(lower 95% CI limit) should be 0.975 
----- PASSED      : test-twotrials.R<9--24>
 call| expect_equal(f(res$summaries$est[i]), 0.5, info = paste0(mtd, 
 call| -->    ": p(median estimate) should be 0.5"), tol = 0.001)
 info| Fisher: p(median estimate) should be 0.5 
----- PASSED      : test-twotrials.R<9--24>
 call| expect_equal(f(res$summaries$upper[i]), 0.025, info = paste0(mtd, 
 call| -->    ": p(upper 95% CI limit) should be 0.025"), tol = 0.001)
 info| Fisher: p(upper 95% CI limit) should be 0.025 
----- PASSED      : test-twotrials.R<9--24>
 call| expect_equal(f(res$summaries$lower[i]), 0.975, info = paste0(mtd, 
 call| -->    ": p(lower 95% CI limit) should be 0.975"), tol = 0.001)
 info| Pearson: p(lower 95% CI limit) should be 0.975 
----- PASSED      : test-twotrials.R<9--24>
 call| expect_equal(f(res$summaries$est[i]), 0.5, info = paste0(mtd, 
 call| -->    ": p(median estimate) should be 0.5"), tol = 0.001)
 info| Pearson: p(median estimate) should be 0.5 
----- PASSED      : test-twotrials.R<9--24>
 call| expect_equal(f(res$summaries$upper[i]), 0.025, info = paste0(mtd, 
 call| -->    ": p(upper 95% CI limit) should be 0.025"), tol = 0.001)
 info| Pearson: p(upper 95% CI limit) should be 0.025 
----- PASSED      : test-twotrials.R<9--24>
 call| expect_equal(f(res$summaries$lower[i]), 0.975, info = paste0(mtd, 
 call| -->    ": p(lower 95% CI limit) should be 0.975"), tol = 0.001)
 info| Edgington: p(lower 95% CI limit) should be 0.975 
----- PASSED      : test-twotrials.R<9--24>
 call| expect_equal(f(res$summaries$est[i]), 0.5, info = paste0(mtd, 
 call| -->    ": p(median estimate) should be 0.5"), tol = 0.001)
 info| Edgington: p(median estimate) should be 0.5 
----- PASSED      : test-twotrials.R<9--24>
 call| expect_equal(f(res$summaries$upper[i]), 0.025, info = paste0(mtd, 
 call| -->    ": p(upper 95% CI limit) should be 0.025"), tol = 0.001)
 info| Edgington: p(upper 95% CI limit) should be 0.025 

test-twotrials.R..............   18 tests OK 0.3s
All ok, 18 results (0.3s)
> 
> proc.time()
   user  system elapsed 
   0.35    0.17    0.53