R/tte.r

Defines functions tte

tte <- function(popdata, qe){
  # calculate time to extinction given qe threshold
  which(popdata<=qe) -> extincts
  return(extincts[1])
  # need to fix for when population doesn't go extinct
}
openfields/Ambcitsci documentation built on May 24, 2019, 2:32 p.m.