fix bug in vignette

waldronlab · Apr 15, 2024 · 7e28949 · 7e28949
1 parent acd1551
commit 7e28949
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/vignettes/articles/nsti.Rmd b/vignettes/articles/nsti.Rmd
@@ -33,8 +33,9 @@ known_y <- sample(tree$tip.label, 2000)
 ## Get NSTI values
 
 ```{r}
-nsti_x <- getNsti(tree = tree, annotated_tip_labels = known_x)
-nsti_y <- getNsti(tree = tree, annotated_tip_labels = known_y)
+nodes_with_taxid <- grep("^n", tree$node.label, value = TRUE, invert = TRUE)
+nsti_x <- getNsti(tree = tree, annotated_tip_labels = known_x, nodes = nodes_with_taxid)
+nsti_y <- getNsti(tree = tree, annotated_tip_labels = known_y, nodes = nodes_with_taxid)
 ```
 
 ## Plot a couple of histograms