## Demonstrate coastline alteration, removing Georges Island from Halifax Harbour
library(oce)
data(coastlineHalifax)
lat <- coastlineHalifax[["latitude"]]
lon <- coastlineHalifax[["longitude"]]
georges <- 44.63632 < lat & lat < 44.64784 & -63.56681 < lon & lon < -63.55452
lat <- lat[!georges]
lon <- lon[!georges]
coastlineNew <- as.coastline(lat, lon, fillable=TRUE)
par(mfrow=c(2,1))
plot(coastlineHalifax)
plot(coastlineNew)
Run the code above in your browser using DataLab