First script for tree sampling

This commit is contained in:
Louis 2025-12-22 14:08:07 +01:00
parent 354ee4d528
commit eca2c0198c

View file

@ -0,0 +1,14 @@
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