library(rbiom)
infile <- system.file("extdata", "hmp50.bz2", 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