R/buffer_req.R

In NathanWhitmore/harvest: Visualising the Sustainability of a Wildlife Harvest

# computes an empirical cumulative distribution function
# for either net productivity (default) or gross productivity
# using Monte Carlo data frame

buffer_req <- function(x, net){
  if(missing(net)) {net=TRUE} else {net=net}
  ifelse(net==FALSE,ecdf(Monte.Carlo$gross.productivity)(x),
         ecdf(Monte.Carlo$net.productivity)(x))
}