if (FALSE) {
## Load example data for test running B_Checker function
data(Potato.Convex)
attach(Potato.Convex)
## Run B_Checker function with original DEM which has internal sinks.
DEM <- s.map$DEM_original
MapCheck <- MapChecker( DEM )
## Check maps
par(mfrow=c(2,2))
plot(DEM)
plot(MapCheck$boundary)
plot(MapCheck$sink)
plot(MapCheck$stand)
}
Run the code above in your browser using DataLab