if (is_on_ci()) {
gamma_distr <- create_gamma_distr(
alpha = 0.05,
beta = 10.0
)
gtr_site_model <- create_gtr_site_model(
rate_ac_prior_distr = gamma_distr
)
beast2_input_file <- get_beautier_tempfilename()
create_beast2_input_file(
input_filename = get_fasta_filename(),
beast2_input_file,
site_model = gtr_site_model
)
file.remove(beast2_input_file)
remove_beautier_folder()
}
Run the code above in your browser using DataLab