Update README

tesselle · Oct 23, 2024 · 7d0e4e0 · 7d0e4e0
1 parent a0584e3
commit 7d0e4e0
Show file tree

Hide file tree

Showing 4 changed files with 12 additions and 8 deletions.
diff --git a/README.Rmd b/README.Rmd
@@ -101,9 +101,11 @@ groups(coda) <- bronze$dynasty
 ```
 
 ```{r barplot, fig.width=5, fig.height=7}
-## Compositional barplots of major elements
-barplot(coda, select = is_element_major(coda), order_rows = "Cu",
-        border = NA, space = 0)
+## Select major elements
+major <- coda[, is_element_major(coda)]
+
+## Compositional barplot
+barplot(major, order_rows = "Cu", border = NA, space = 0)
 ```
 
 ```{r lra, fig.width=7, fig.height=7, out.width='50%', fig.show='hold'}
@@ -114,7 +116,7 @@ lra <- pca(clr)
 
 ## Visualize results
 viz_individuals(lra, color = c("#004488", "#DDAA33", "#BB5566"))
-viz_hull(x = lra, border = c("#004488", "#DDAA33", "#BB5566"))
+viz_hull(x = lra, color = c("#004488", "#DDAA33", "#BB5566"))
 
 viz_variables(lra)
 ```

diff --git a/README.md b/README.md
@@ -123,9 +123,11 @@ groups(coda) <- bronze$dynasty
 ```
 
 ``` r
-## Compositional barplots of major elements
-barplot(coda, select = is_element_major(coda), order_rows = "Cu",
-        border = NA, space = 0)
+## Select major elements
+major <- coda[, is_element_major(coda)]
+
+## Compositional barplot
+barplot(major, order_rows = "Cu", border = NA, space = 0)
 ```
 
 ![](man/figures/README-barplot-1.png)<!-- -->
@@ -138,7 +140,7 @@ lra <- pca(clr)
 
 ## Visualize results
 viz_individuals(lra, color = c("#004488", "#DDAA33", "#BB5566"))
-viz_hull(x = lra, border = c("#004488", "#DDAA33", "#BB5566"))
+viz_hull(x = lra, color = c("#004488", "#DDAA33", "#BB5566"))
 
 viz_variables(lra)
 ```

diff --git a/man/figures/README-barplot-1.png b/man/figures/README-barplot-1.png
diff --git a/man/figures/README-lra-2.png b/man/figures/README-lra-2.png