# test_that("replext_t4 works", {
#   res <- replext_t4_c1.1(n_simulations = 5)
#   res4.1 <-replext_t4_c4.1(n_simulations = 5)
#   res6.1 <- replext_t4_c6.1(n_simulations = 5)
#   expect_equal(2 * 2, 4)
# })