# test_that("replext_t3 works", {
#
#   res <- replext_t3_c1.1(M2 = 7, n1 = c(8,9), n2 = c(8,9), n_simulations = 10)
#   expect_equal(length(res), 7)
# })