Unwrap a model for later use

The unwrap_model function uses terra::unwrap() to easier ship a DistributionModel object.

Usage

unwrap_model(mod, verbose = getOption("ibis.setupmessages", default = TRUE))

# S4 method for ANY
unwrap_model(mod, verbose = getOption("ibis.setupmessages", default = TRUE))

Arguments

mod

Provided DistributionModel object.

verbose

logical indicating whether messages should be shown. Overwrites getOption("ibis.setupmessages") (Default: TRUE).

Value

DistributionModel with unwrapped raster layers

See also

wrap_model

Examples

if (FALSE) {
x <- distribution(background) |>
 add_biodiversity_poipo(virtual_points, field_occurrence = 'observed', name = 'Virtual points') |>
 add_predictors(pred_current, transform = 'scale',derivates = 'none') |>
 engine_xgboost(nrounds = 2000) |>
 train(varsel = FALSE, only_linear = TRUE) |>
 wrap_model()
unwrap_model(x, "testmodel.rds")
}