Merge branch 'devel' into master

microbiome · Oct 7, 2024 · 59e7c76 · 59e7c76
2 parents 1cd5f13 + 917f7c7
commit 59e7c76
Showing 1 changed file with 9 additions and 3 deletions.
diff --git a/inst/pages/beta_diversity.qmd b/inst/pages/beta_diversity.qmd
@@ -610,10 +610,16 @@ composition.
 plotLoadings(tse2, "RDA", ncomponents = 2, n = 20)
 ```
 
+```{r}
+#| label: get_top_taxa
+#| echo: false
+
+loadings <- attr(reducedDim(tse2, "RDA"), "species")
+top_coef <- sort(abs(loadings[, 1]), decreasing = TRUE)
+```
+
 In the example above, the largest differences between the two groups
-can be attributed to _`r names(sort(abs(top_coef), decreasing = TRUE))[[1]]`_
-and
-_`r names(sort(abs(top_coef), decreasing = TRUE))[[2]] `_.
+can be attributed to _`r names(top_coef)[[1]]`_ and _`r names(top_coef)[[2]] `_.
 
 ### Checking the homogeneity condition