# test_that("replext_ts2 works", {
#   res <- replext_ts2_c1.1(n1 = c(4,5), n2 = c(4,5), n3 = c(4,5),
#                           n_simulations = 10)
#   expect_equal(nrow(res), 2)
# })