# 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 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 the alignment
alignment <- create_true_alignment(
true_phylogeny = phylogeny,
alignment_params = alignment_params
)
check_alignment(alignment)
# Cleanup
beastier::remove_beaustier_folders()
beastier::check_empty_beaustier_folders()
Run the code above in your browser using DataLab