# Create a valid 'check_sim_tral_fun'
f <- get_sim_tral_with_lns_nsm_fun()
check_sim_tral_fun(f)
# Simulate a true alignment
phylogeny <- ape::read.tree(text = "((A:1, B:1):1, C:2);")
true_alignment <- f(
true_phylogeny = phylogeny,
root_sequence = "acgt"
)
Run the code above in your browser using DataLab