if (is_on_ci()) {
# Create the parameter
alpha_param <- create_alpha_param()
# Use the parameter in a distribution
beta_distr <- create_beta_distr(
alpha = alpha_param
)
# Use the distribution to create a BEAST2 input file
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 = beta_distr
)
)
file.remove(beast2_input_file)
remove_beautier_folder()
}
Run the code above in your browser using DataLab