diff options
author | lpautrel <lea.pautrel@terroiko.fr> | 2023-12-12 12:50:30 +0100 |
---|---|---|
committer | lpautrel <lea.pautrel@terroiko.fr> | 2023-12-12 12:50:30 +0100 |
commit | 94ab036c847ce1ae47627853042e7846206848ac (patch) | |
tree | 1b6919a3c4dfdd1bd66d25a2d6c2d04c42af99db | |
parent | 6484766345ebd17c60c214917f0c86c4af569765 (diff) |
Remove specific parboot for occuCOP
-rw-r--r-- | R/boot.R | 9 |
1 files changed, 2 insertions, 7 deletions
@@ -69,13 +69,8 @@ setMethod("parboot", "unmarkedFit", function(object, statistic=SSE, nsim=10, simdata <- replaceY(object@data, x) tryCatch({ #if(runif(1,0,1) < 0.5) stop("fail") # for testing error trapping - if (class(object) == "unmarkedFitCOP") { - fit <- suppressMessages(update(object, data = simdata, se = FALSE)) - statistic(fit, ...) - } else { - fit <- update(object, data = simdata, starts = starts, se = FALSE) - statistic(fit, ...) - } + fit <- update(object, data = simdata, starts = starts, se = FALSE) + statistic(fit, ...) }, error=function(e){ t0[] <- NA t0 |