library(oce)
lat <- seq(47.80, 48.00, length.out=30)
lon <- seq(-69.9, -69.6, length.out=30)
lonm <- matrix(rep(lon,length(lat)),ncol=length(lat),byrow=TRUE)
latm <- matrix(rep(lat,length(lon)),nrow=length(lon),byrow=FALSE)
dec <- magneticDeclination(latm, lonm, 2008 + 7 / 12)
data(coastlineSLE)
plot(coastlineSLE)
contour(x=lon, y=lat, z=dec, add=TRUE)
Run the code above in your browser using DataLab