sims/method_functions.R

In statdivlab/CatchMore: Species Richness estimation with CatchAll

## @knitr methods


catchall_best <- new_method("catchall", "Best model with CatchAll",
                        method = function(model, draw) {
                          bmm <- CatchAll::catch_best(draw)
                          list(Model = bmm$model,
                               obs = sum(counts > 0),
                               est = bmm$est)
                        })