# \donttest{
# set seed for reproducibility
set.seed(14)
## Create model and solve
port <- evalBudget(pu = sim_pu_data, features = sim_features_data,
dist_features = sim_dist_features_data,
threats = sim_threats_data,
dist_threats = sim_dist_threats_data,
sensitivity = sim_sensitivity_data,
boundary = sim_boundary_data,
values = c(1, 10, 50, 100),
time_limit = 50,
output_file = FALSE,
cores = 2)
getSolutionBenefit(port)
# }
Run the code above in your browser using DataLab