# dataset for this example
data(Msi01genes)
# give the name of the taxon that is blank
Msi01genes <- SetBlankTaxa(Msi01genes, "blank")
# Fifteen libraries were done; blank is pooled over all of them, and
# most other samples are pooled over two libraries.
mymult <- 2/15
# estimate the contamination rate
Msi01genes <- EstimateContaminationRate(Msi01genes, multiplier = mymult)
Run the code above in your browser using DataLab