This function performs rarefying. Make sure that all samples contain at least the minimum number of reads; otherwise, an error might be thrown.
Examples
# discard samples with less than 1000 reads
urt_1000 <- urt %>%
add_total_count() %>%
filter_samples(total_count >= 1000)
# then rarefy to 1000 reads
urt_1000 <- urt_1000 %>% rarefy(1000)