From d2844e3ce6b57c99e42ca745e8ca6855873fddf1 Mon Sep 17 00:00:00 2001 From: Michael Thomas Date: Tue, 24 Sep 2024 14:36:03 -0400 Subject: [PATCH] fix: remove double clutching from regular model --- project.R | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) 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)