Fix error in simulation of recruitment data.

LandSciTech · Jan 17, 2025 · 7bf91ff · 7bf91ff
1 parent fdfcad3
commit 7bf91ff
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/R/internal_demog_fns.R b/R/internal_demog_fns.R
@@ -169,12 +169,13 @@ simCalfCowRatios <- function(cowCounts, minYr, exData) {
 
   if(sum(ageRatioOut$cow>ageRatioOut$N,na.rm=T)){
     warning("The expected number of cows in composition survey exceeds population size. Adjusting cows in survey for consistency.")
+    ageRatioOut$cow = pmin(ageRatioOut$cow,ageRatioOut$N)
   }
 
   #apparent number of calves (M+F) from apparent number of cows using apparent recruitment rate
   ageRatioOut$calf <- ifelse(ageRatioOut$cow == 0, 0,
                              rbinom(
-                               n = nrow(ageRatioOut), size = pmin(ageRatioOut$cow,ageRatioOut$N),
+                               n = nrow(ageRatioOut), size = ageRatioOut$cow,
                                prob = ageRatioOut$recruitment
                              )
   )

diff --git a/man/popGrowthTableJohnsonECCC.Rd b/man/popGrowthTableJohnsonECCC.Rd