# Check cleanup by other functions
beastier::check_empty_beaustier_folders()
# Create an AAAA alignent
alignment <- ape::as.DNAbin(
x = list(species_1 = strsplit("aaaa", split = "")[[1]])
)
# Count the number of mutations from AAAA
# 0
count_n_mutations(alignment, "aaaa")
# 1
count_n_mutations(alignment, "acaa")
# 2
count_n_mutations(alignment, "acga")
# 3
count_n_mutations(alignment, "acgt")
# 4
count_n_mutations(alignment, "ccgt")
Run the code above in your browser using DataLab