From fa86a466669dbd8e09362aec0db7219eb961dc60 Mon Sep 17 00:00:00 2001
From: Hughes <Josie.Hughes@ec.gc.ca>
Date: Wed, 2 Oct 2024 06:52:34 -0400
Subject: [PATCH] Bug fixing

---
 R/caribouPopGrowth.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/caribouPopGrowth.R b/R/caribouPopGrowth.R
index 16c5b77..5170b3e 100644
--- a/R/caribouPopGrowth.R
+++ b/R/caribouPopGrowth.R
@@ -196,8 +196,8 @@ caribouPopGrowth <- function(N0,
       R_t=s*R_t
     }
     
-    #adjusting for bias and delayed reproduction
-    R_tadj=c*R_t/(1+c*R_t)
+    #adjusting for composition survey bias
+    R_tadj=c*R_t
 
     Ntm1=N