R/numberiterations.R

Defines functions numberiterations

Documented in numberiterations

numberiterations <-
function(iterations,errorb,cfu_average){
if (iterations<100){
return(TRUE)} else {
errorbound <- errorb*cfu_average[iterations]
calcerror <- abs(cfu_average[iterations] - cfu_average[iterations-1])
return(calcerror > errorbound)
} # END ELSE
} # END FUNCTION

Try the NPMPM package in your browser

Any scripts or data that you put into this service are public.

NPMPM documentation built on May 29, 2017, 11:48 a.m.