diff options
Diffstat (limited to 'R/unmarkedFit.R')
-rw-r--r-- | R/unmarkedFit.R | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/R/unmarkedFit.R b/R/unmarkedFit.R index 97ccfe4..84740b3 100644 --- a/R/unmarkedFit.R +++ b/R/unmarkedFit.R @@ -453,6 +453,7 @@ setMethod("fitted", "unmarkedFitDS", function(object, na.rm = FALSE) m = A <- A / 1e6, km = A <- A) switch(object@unitsOut, + m = A <- A * 1e6, ha = A <- A * 100, kmsq = A <- A) lambda <- lambda * A @@ -1660,11 +1661,13 @@ setMethod("getP", "unmarkedFitDS", point = { for(i in 1:M) { a[i, 1] <- pi*db[2]^2 - for(j in 2:J) + if(J > 1){ + for(j in 2:J) a[i, j] <- pi*db[j+1]^2 - sum(a[i, 1:(j-1)]) - u[i,] <- a[i,] / sum(a[i,]) } - }) + u[i,] <- a[i,] / sum(a[i,]) + } + }) switch(key, @@ -2089,6 +2092,7 @@ setMethod("simulate", "unmarkedFitDS", m = A <- A / 1e6, km = A <- A) switch(object@unitsOut, + m = A <- A * 1e6, ha = A <- A * 100, kmsq = A <- A) lambda <- lambda * A @@ -2104,7 +2108,6 @@ setMethod("simulate", "unmarkedFitDS", - setMethod("simulate", "unmarkedFitPCount", function(object, nsim = 1, seed = NULL, na.rm = TRUE) { |