Script en R para estimar la riqueza de OTU bacterianas usando una curva de rarefacción. Script utilizado en el POIr