Hi secr group,
I have a fitted model and was hoping to use some assessment of goodness of fit. My traps are transects, and I have a large study area with 120 transects across about 130 square km. Naturally, the mask object is pretty big and the model fitting was slow.
From documentation, it appears that MCgof() will not work due to the transect detectors. Secr.test will work, though the default metric of first detections isn't appropriate because animals could be detected more than once per occasion. I decided to try secr.test with the deviance metric provided in the example code (I also tried the default metric because I was curious how off it might be).
bothfn <- function(object) {
CH <- object$capthist
f1 <- sum(apply(abs(CH) > 0, 1, sum) == 1) / nrow(CH)
devdf <- deviance(object) / df.residual(object)
c(f1 = f1, devdf = devdf)
}
test <- secr.test(mod, nsim = 1, seed = 102, ncores = 23,
statfn = bothfn)
I tested this function on just one single simulation, and with a simpler model than the one I'd actually like to evaluate. Even still, after 24 hours, the single simulation was not complete. The only output was the message "maxg stop in simsecr". I haven't been able to find this message in any of the underlying function code for secr.test or sim.secr, so I'm guessing it's a C++ thing? I can't tell if it's an error message or just normal reporting, but something doesn't seem right if I can't even get one simulation done in 24 hours with a simplified model - there's no way I'd be able to do 99 with my full model.
Does anyone have insight on this "maxg stop in simsecr" message?