library(oce)
i <- imagep(volcano)
oce.grid(i, lwd=2)
data(sealevel)
i <- oce.plot.ts(sealevel[["time"]], sealevel[["elevation"]])
oce.grid(i, col='red')
data(ctd)
i <- plotTS(ctd)
oce.grid(i, col='red')
data(adp)
i <- plot(adp, which=1)
oce.grid(i, col='gray', lty=1)
data(echosounder)
i <- plot(echosounder)
oce.grid(i, col='pink', lty=1)
Run the code above in your browser using DataLab