library(rbiom) knitr::opts_chunk$set( collapse = TRUE, comment = "#>", R.options = list( pillar.print_min = 5, pillar.print_max = 5 ))
biom <- rarefy(hmp50) bdiv_boxplot( biom = biom, x = "==Sex", bdiv = c("Bray-Curtis", "Euclidean"), facet.by = list("==Body Site" = c("Buccal mucosa", "Saliva")) )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.