small_tr <- get_study_subtree(study_id="pg_1144", tree="tree2324", subtree_id="node552052")
ingroup <- get_study_subtree(study_id="pg_1144", tree="tree2324", subtree_id="ingroup")
nexus_file <- tempfile(fileext=".nex")
get_study_subtree(study_id="pg_1144", tree="tree2324", subtree_id="ingroup", file=nexus_file,
file_format="nexus")Run the code above in your browser using DataLab