Create a 1/x distribution
See also
the function create_distr
shows an overview
of all supported distributions
Examples
if (is_on_ci()) {
one_div_x_distr <- create_one_div_x_distr()
beast2_input_file <- get_beautier_tempfilename()
create_beast2_input_file(
input_filename = get_fasta_filename(),
beast2_input_file,
tree_prior = create_yule_tree_prior(
birth_rate_distr = one_div_x_distr
)
)
file.remove(beast2_input_file)
remove_beautier_folder()
}