# \donttest{
data("throat.otu.tab")
otu.tab = throat.otu.tab[,colSums(throat.otu.tab>0)>1]
fitted = MIDASim.setup(otu.tab, mode = 'parametric')
# modify library sizes
fitted.modified <- MIDASim.modify(fitted,
lib.size = sample(fitted$lib.size, 2*nrow(otu.tab),
replace = TRUE) )
# modify mean relative abundances
fitted.modified <- MIDASim.modify(fitted,
mean.rel.abund = fitted$mean.rel.abund * runif(fitted$n.taxa))
# }
Run the code above in your browser using DataLab