if (is_on_ci()) {
mcmc <- create_ns_mcmc(
chain_length = 1e7,
store_every = 1000,
particle_count = 1,
sub_chain_length = 1000,
epsilon = 1e-12
)
beast2_input_file <- get_beautier_tempfilename()
create_beast2_input_file(
get_fasta_filename(),
beast2_input_file,
mcmc = mcmc
)
file.remove(beast2_input_file)
remove_beautier_folder()
}
Run the code above in your browser using DataLab