library(phyloseq)

# data("GlobalPatterns")

gp_tree <- phy_tree(GlobalPatterns)
plot(gp_tree, show.node.label = FALSE, show.tip.label = FALSE)
gp_tree$node.label
gp_tree$edge.length
gp_tree$edge


simple_tree <- list()
class(simple_tree) <- "phylo"
simple_tree