if (beautier::is_on_ci() && beastier::is_beast2_installed()) {
pir_paramses <- list()
pir_paramses[[1]] <- create_test_pir_params()
pir_paramses[[2]] <- create_test_pir_params()
phylogenies <- list()
phylogenies[[1]] <- ape::read.tree(text = "((A:2, B:2):1, C:3);")
phylogenies[[2]] <- ape::read.tree(text = "((A:1, B:1):2, C:3);")
pir_outs <- pir_runs(
phylogenies = phylogenies,
pir_paramses = pir_paramses
)
for (pir_out in pir_outs) {
check_pir_out(pir_out)
}
}
Run the code above in your browser using DataLab