# \donttest{
# set seed for reproducibility
set.seed(14)
## Create model and solve
port <- evalTarget(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(0.1, 0.3, 0.5),
time_limit = 50,
output_file = FALSE,
cores = 2)
getCost(port)
# }
Run the code above in your browser using DataLab