library(rbiom)
infile <- system.file("extdata", "hmp50.bz2", package = "rbiom")
biom <- read.biom(infile)
ex1 <- select(biom, c('HMP14', 'HMP22', 'HMP03'))
ex2 <- select(biom, c(32, 11, 28, 16, 46, 5))
ex3 <- select(biom, 1:50 %% 6 == 0)
ex4 <- select(biom, nRandom = 10)
ex5 <- select(biom, nTop = 5)
ex6 <- select(biom, samples = 10:40, nTop = 20, nRandom = 10)
Run the code above in your browser using DataLab