# load and plot a bathymetry
data(florida)
plot(florida, lwd = 0.2)
plot(florida, n = 1, lwd = 0.7, add = TRUE)
# add points around which a buffer will be computed
loc <- data.frame(c(-80,-82), c(26,24))
points(loc, pch = 19, col = "red")
# compute buffer
buf <- create.buffer(florida, loc, radius=1.5)
# highlight isobath with the buffer and add outline
plot(buf, add = TRUE, n = 10, col = 2, lwd=.4)
plot(outline.buffer(buf), add = TRUE, lwd = 0.7, col = 2)
Run the code above in your browser using DataLab