Fix bug in open model simulation

rbchan · Jul 9, 2024 · 84f3dc2 · 84f3dc2
1 parent 1f49929
commit 84f3dc2
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: unmarked
-Version: 1.4.1.9003
-Date: 2024-06-14
+Version: 1.4.1.9004
+Date: 2024-07-09
 Type: Package
 Title: Models for Data from Unmarked Animals
 Authors@R: c(

diff --git a/R/unmarkedFit.R b/R/unmarkedFit.R
@@ -2206,9 +2206,9 @@ simOpenN <- function(object, na.rm)
     S <- G <- matrix(NA, M, T-1)
     for(i in 1:M) {
             switch(mix,
-                   P = N[i, 1] <- rpois(1, lambda),
+                   P = N[i, 1] <- rpois(1, lambda[i]),
                    NB = N[i, 1] <- rnbinom(1, size =
-                       exp(coef(object["alpha"])), mu = lambda),
+                       exp(coef(object["alpha"])), mu = lambda[i]),
                    ZIP = N[i,1] <- rzip(1, lambda[i], psi))
             if(delta[i, 1] > 1) {
                 for(d in 2:delta[i, 1]) {