if (FALSE) {
ancestral_nodes <- list(
Non_lepidosauria = 242,
Other_Lepidosauria = 237,
Gekkota = 222,
Scincoidea = 210,
Teiioidea = 192,
Lacertidae = 209,
Amphisbaenia = 205,
Anguiformes = 150,
Acrodonta = 145,
Pleurodonta = 133,
Caenophidia = 170,
Early_Serpentes = "164 - 170" # non-monophyletic group
)
Nodes_Clade_Table <- clade_membership(
tree = "tree.nex",
ancestral_nodes = ancestral_nodes,
other_nodes_label = "deep_Squamata_nodes"
)
}
Run the code above in your browser using DataLab