From eca2c0198c44ee104b72f2522823178962cd586f Mon Sep 17 00:00:00 2001
From: Louis <louis.lacoste@agroparistech.fr>
Date: Mon, 22 Dec 2025 14:08:07 +0100
Subject: [PATCH] First script for tree sampling

---
 progressive-tree-sampling.R | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 progressive-tree-sampling.R

diff --git a/progressive-tree-sampling.R b/progressive-tree-sampling.R
new file mode 100644
index 0000000..0465c00
--- /dev/null
+++ b/progressive-tree-sampling.R
@@ -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