fix lambdaTrue returned as matrix

LandSciTech · Oct 17, 2024 · 5c81550 · 5c81550
1 parent 8cac513
commit 5c81550
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/caribouPopGrowth.R b/R/caribouPopGrowth.R
@@ -246,7 +246,7 @@ caribouPopGrowth <- function(N0,
   }
 
   lamBits = names(rr)[grepl("lam",names(rr))]
-  rr$lambdaTrue=matrixStats::rowCumprods(as.matrix(subset(rr,select=lamBits)),na.rm=T)^(1/length(lamBits)) #geometric mean
+  rr$lambdaTrue=matrixStats::rowProds(as.matrix(subset(rr,select=lamBits)),na.rm=T)^(1/length(lamBits)) #geometric mean
   rr=subset(rr,select=setdiff(names(rr),lamBits))
   rr$lambda = lambdaE
   rr$N=N