Retrieve the aggregation factor of a restopt problem.

Retrieve the aggregation factor of a restopt problem.

Usage

get_aggregation_factor(problem)

Arguments

problem

restopt_problem() Restoration problem object.

Value

numeric The aggregation factor of the restopt problem.

Examples

# \donttest{
#' # load data
habitat_data <- rast(
  system.file("extdata", "habitat_hi_res.tif", package = "restoptr")
)

# create problem
problem <- restopt_problem(
       existing_habitat = habitat_data,
       aggregation_factor = 4,
       habitat_threshold = 0.7
)

get_aggregation_factor(problem)
#> [1] 4
# }