# load and plot a bathymetry
data(florida)
plot(florida, lwd = 0.2)
plot(florida, n = 0, 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)
# plot buffer outline
plot(outline.buffer(buf), add=TRUE, lwd=.7, col=2)
Run the code above in your browser using DataLab