R/flat.r

In seedy: Simulation of Evolutionary and Epidemiological Dynamics

Defines functions flat

Documented in flat

flat <- function(x, span, eq.size=5000) {
  if (eq.size%%1!=0 || eq.size<=0) {
    stop("Equilibrium population size must be a postive integer")
  }
  return(eq.size)
}

Try the seedy package in your browser