if (beautier::is_on_ci() && rappdirs::app_dir()$os != "win") {
experiment_1 <- create_test_gen_experiment()
experiment_2 <- create_test_cand_experiment()
experiments <- list(experiment_1, experiment_2)
# Experiments must have different inference models
experiments[[1]]$inference_model$site_model <-
beautier::create_gtr_site_model()
select_candidate_evidences(
experiments = experiments,
marg_liks = create_test_marg_liks()
)
}
Run the code above in your browser using DataLab