library(phylobase)
# load the MAP tree structure obtained from the real HCHS/SOL data
data(data_synthetic)
# extract elements into the global environment
list2env(setNames(data_synthetic, names(data_synthetic)), envir = globalenv())
detachment <- random_detach_subtree(extractTree(tree_with_parameter))
Run the code above in your browser using DataLab