## Not run:
# 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")
# ## End(Not run)
Run the code above in your browser using DataLab