View source: R/set_max_nb_pus_objective.R
set_max_nb_pus_objective | R Documentation |
Specify that a restoration problem (restopt_problem()
) should
maximize the number of planning units.
set_max_nb_pus_objective(problem)
problem |
|
Planning units correspond to aggregated cells from the original dataset. Maximizing the number of planning units increased the spatial extent of the restoration area. This can be useful when the budget is limited and the aim is to restore the larget possible extent.
An updated restoration problem (restopt_problem()
) object.
Other objectives:
set_max_iic_objective()
,
set_max_mesh_objective()
,
set_max_restore_objective()
,
set_min_nb_patches_objective()
,
set_min_nb_pus_objective()
,
set_min_restore_objective()
,
set_no_objective()
## Not run:
# load data
habitat_data <- rast(
system.file("extdata", "habitat_hi_res.tif", package = "restoptr")
)
locked_out_data <- rast(
system.file("extdata", "locked_out.tif", package = "restoptr")
)
# plot data
plot(rast(list(habitat_data, locked_out_data)), nc = 2)
# create problem with locked out constraints
p <- restopt_problem(
existing_habitat = habitat_data,
aggregation_factor = 16,
habitat_threshold = 0.7
) %>%
set_max_nb_pus_objective() %>%
add_restorable_constraint(
min_restore = 5,
max_restore = 5,
) %>%
add_locked_out_constraint(data = locked_out_data) %>%
add_settings(time_limit = 1)
# print problem
print(p)
# solve problem
s <- solve(p)
# plot solution
plot(s)
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.