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