cleanup get_rf

Author: mcsiple

R/03_get_rf.R

@@ -34,7 +34,6 @@ get_rf <- function(E_in, S0, S1plus, nages, AgeMat, z, A, P0, N0) {
   if(AgeMat > nages){warning("Age at maturity cannot be larger than plus group age. Change AgeMat or nages.")}
   if(S0 < 0 | S0 >= 1){stop("Calf/pup survival must be between 0 and 1.")}
   if(S1plus < 0 | S1plus >= 1){stop("Adult survival must be between 0 and 1.")}
-  #if(E_in < 0 | E_in > 1){stop("Check E_in; bycatch mortality must be between 0 and 1.")}
 
   NprOut <- npr(S0 = S0, S1plus = S1plus, nages = nages, AgeMat = AgeMat, E = E_in)
   NE <- NprOut$npr