# Create the phylogeny to simulate the alignment on
n_taxa <- 5
true_phylogeny <- ape::rcoal(n_taxa)
root_sequence <- "aaaacgt"
# Use default settings to create the alignment
alignment_params <- create_alignment_params(
sim_tral_fun =
get_sim_tral_with_std_nsm_fun(
mutation_rate = 1.0
),
root_sequence = root_sequence
)
# Simulate the alignment
alignment <- sim_true_alignment(
true_phylogeny = true_phylogeny,
alignment_params = alignment_params,
)
check_alignment(alignment)
Run the code above in your browser using DataLab