R/transformOutput.R

In secrdesign: Sampling Design for Spatially Explicit Capture-Recapture

##############################################################################
## package 'secrdesign'
## transformOutput.R
## 2023-04-15
##############################################################################

transformOutput <- function (object, extractfn, outputtype = "predicted", ...) {
    object$output <- lapply(object$output, function(x) lapply(x, extractfn, ...))
    outputtype(object) <- outputtype
    object$extractfn <- extractfn
    object
}