f <- get_sim_tral_with_std_nsm_fun(
mutation_rate = 0.1
)
check_sim_tral_fun(f)
alignment_params <- create_test_alignment_params(
sim_tral_fun = f,
root_sequence = "acgt",
)
true_alignment <- sim_true_alignment(
true_phylogeny = ape::read.tree(text = "((A:1, B:1):1, C:2);"),
alignment_params = alignment_params
)
Run the code above in your browser using DataLab