true_phylogeny <- ape::read.tree(text = "((A:1, B:1):2, C:3);")
twin_phylogeny <- ape::read.tree(text = "((A:2, B:2):1, C:3);")
root_sequence <- create_blocked_dna(1000)
alignment_params <- create_test_alignment_params()
true_alignment <- create_true_alignment(
true_phylogeny = true_phylogeny,
alignment_params = alignment_params
)
twin_alignment <- sim_twin_alignment(
twin_phylogeny = twin_phylogeny,
true_alignment = true_alignment,
alignment_params = alignment_params,
twinning_params = create_twinning_params()
)
Run the code above in your browser using DataLab