# Check cleanup by other functions
beastier::check_empty_beaustier_folders()
# Create the ancestor's DNA sequence
n_base_pairs <- 4
root_sequence <- create_blocked_dna(length = n_base_pairs)
# How to simulate (and where to save) the alignment
alignment_params <- create_alignment_params(
root_sequence = root_sequence
)
# Create a phylogeny to simulate the DNA sequences on
n_taxa <- 5
phylogeny <- ape::rcoal(n_taxa)
# Simulate and save the alignment
create_tral_file(
phylogeny = phylogeny,
alignment_params = alignment_params
)
# Cleanup
beastier::remove_beaustier_folders()
beastier::check_empty_beaustier_folders()
Run the code above in your browser using DataLab