vec_path <- system.file("extdata/vec_projected.shp", package = "lconnect")
landscape <- upload_land(vec_path, bound_path = NULL,
habitat = 1, max_dist = 500)
importance <- patch_imp(landscape, metric = "IIC")
plot(importance)
Run the code above in your browser using DataLab