[BACK]Return to extinction_risk_1.R CVS log [TXT][DIR] Up to [local] / ext

Diff for /ext/extinction_risk_1.R between version 1.5 and 1.6

version 1.5, 2015/06/25 15:23:44 version 1.6, 2015/07/02 06:51:04
Line 145  ext1 <- function(dat, t = 100, ne = 1, alpha = 0.05, v
Line 145  ext1 <- function(dat, t = 100, ne = 1, alpha = 0.05, v
   High.CL.Gpsi <- 1 / (1 + exp(- hh - qnorm(1 - alpha / 2) * sqrt(var.H)))    High.CL.Gpsi <- 1 / (1 + exp(- hh - qnorm(1 - alpha / 2) * sqrt(var.H)))
   if (verbose == TRUE) {    if (verbose == TRUE) {
     results <- list(ne = ne, t = t, verbose = verbose,      results <- list(ne = ne, t = t, verbose = verbose,
         xd = xd,
       Growth.rate = mu,        Growth.rate = mu,
       Low.CL.mu = Low.CL.mu,        Low.CL.mu = Low.CL.mu,
       High.CL.mu = High.CL.mu,        High.CL.mu = High.CL.mu,
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6