michael/mth-335-project-1
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix: remove double clutching from regular model

Browse source
This commit is contained in:
Michael Thomas 2024-09-24 14:36:03 -04:00
parent 6f60526d9b
commit d2844e3ce6
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
project.R
View file

@ -72,7 +72,7 @@ simulate_condor_population <- function(rd1, rdI, rdA) {
captive_immature_to_adult_rate * c_I[t - 1] # inflow from immature captive_immature_to_adult_rate * c_I[t - 1] # inflow from immature
# model new births in captive population # 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 # sum of all population groups
last_captive_population <- c_Y0[t - 1] + c_Y1[t - 1] + c_I[t - 1] + c_A[t - 1] 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, w_A, col = "blue")
points(years, wild_population) points(years, wild_population)
} }
simulate_condor_population(0.086, 0.086, 0.086)