# \donttest{
# set seed for reproducibility
set.seed(14)
## Create model and solve
port <- evalBlm(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.0, 0.01, 0.02, 0.03),
model_type = "minimizeCosts",
time_limit = 50,
output_file = FALSE,
cores = 2)
getConnectivityPenalty(port)
# }
Run the code above in your browser using DataLab