# 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')
lcp_network <- create_FETE_lcps(cost_surface = slope_cs, locations = locs,
cost_distance = FALSE, parallel = FALSE)
# }
Run the code above in your browser using DataLab