if (is_on_ci()) {
clock_rate_param <- create_clock_rate_param(
id = "anthus_aco", value = 1.0
)
# Use the parameter in a clock model
strict_clock_model <- create_strict_clock_model(
clock_rate_param = clock_rate_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,
clock_model = strict_clock_model
)
file.remove(beast2_input_file)
remove_beautier_folder()
}
Run the code above in your browser using DataLab