inst/examples/interpolate_akima_example.R

dem <- raster(system.file("external/dtm.grd", package="rdemtools"))
plot(dem)

xy <- xyFromCell(dem, sampleRegular(dem, 10, cells = TRUE)[, 1])
voids <- fake_voids(xy, 100, dem)
plot(voids)

dem[voids] <- NA
plot(dem)

dem <- interpolate_akima(dem)
plot(dem)
GastonMauroDiaz/rdemtools documentation built on Oct. 22, 2019, 8:32 p.m.