R/k_may.R

In MLpreemption: Maximum Likelihood Estimation of the Niche Preemption Model

Defines functions k_may

Documented in k_may

k_may <-
function(xs,exclude=TRUE) {
  if(exclude) xs <- xs[xs!=0]
  out <- uniroot(fmay,c(0.001,0.999),xs)
  khat <- out$root
  return(khat)
}

Try the MLpreemption package in your browser