# NOT RUN {
r <- raster::raster(system.file('external/maungawhau.grd', package = 'gdistance'))
loc1 = cbind(2667670, 6479000)
loc1 = sp::SpatialPoints(loc1)
barrier <- create_barrier_cs(raster = r, barrier = loc1)
# }
Run the code above in your browser using DataLab