diff --git a/project.R b/project.R index a5d1d60..571ac54 100644 --- a/project.R +++ b/project.R @@ -72,7 +72,7 @@ simulate_condor_population <- function(rd1, rdI, rdA) { captive_immature_to_adult_rate * c_I[t - 1] # inflow from immature # model new births in captive population - c_Y0[t] <- captive_productivity_rate_dc * (c_A[t] / 2) + c_Y0[t] <- captive_productivity_rate * (c_A[t] / 2) # sum of all population groups last_captive_population <- c_Y0[t - 1] + c_Y1[t - 1] + c_I[t - 1] + c_A[t - 1] @@ -139,5 +139,3 @@ simulate_condor_population <- function(rd1, rdI, rdA) { points(years, w_A, col = "blue") points(years, wild_population) } - -simulate_condor_population(0.086, 0.086, 0.086)