# NOT RUN {
library(rbiom)
infile <- system.file("extdata", "hmp50.biom", package = "rbiom")
biom <- read.biom(infile)
range(slam::col_sums(biom$counts))
biom <- rarefy(biom, depth=1000)
range(slam::col_sums(biom$counts))
# }
Run the code above in your browser using DataLab