# NOT RUN {
r <- raster::raster(nrow=50, ncol=50, xmn=0, xmx=50, ymn=0, ymx=50,
crs='+proj=utm')
r[] <- stats::runif(1:length(r))
slope_cs <- create_slope_cs(r, cost_function = 'tobler')
locs <- sp::spsample(as(raster::extent(r), 'SpatialPolygons'),n=5,'regular')
matrix <- cost_matrix(slope_cs, locs, 2)
lcp_network <- create_lcp_network(slope_cs, locations = locs,
nb_matrix = matrix, cost_distance = FALSE, parallel = FALSE)
# }
Run the code above in your browser using DataLab