test_that("use, random", {
if (!beastier::is_on_travis()) return()
skip("Sum of evidences deviates too much from one")
raket_params <- create_test_raket_params()
raket_params$sampling_method <- "random"
expect_silent(run_raket(raket_params))
})
Error in est_evidences(fasta_filename = fasta_filename, experiments = pir_params$experiments, :
Sum of evidences (aka marginal likelihoods) deviates too much from one
Sum: 0
Tolerance: 0.1