## S3 method for class 'sealevel':
plot(x, which=1:3, adorn=NULL,
drawTimeRange=getOption("oceDrawTimeRange"),
mgp=getOption("oceMgp"), 
mar=c(mgp[1]+0.5,mgp[1]+1.5,mgp[2]+1,mgp[2]+3/4),
marginsAsImage=FALSE,
debug=getOption("oceDebug"),
...)"sealevel", e.g. as read by
        read.sealevel."all" for a time-series of all the data, 2 or
        "month" for a time-series of just the first month, 3 or
        "spectrum"par(mgp), and
        also for par(mar), computed from this.  The default is
        tighter than the R default, in order to use more space for the data
        and less for the axes.par("mar").TRUE to put a wide margin to the
        right of time-series plots, matching the space used up by a palette
        in an imagep plot.which, either a single-panel or
    multi-panel plot is drawn.  If there is just one panel, then the value of
    par used in plot.sealevel is retained upon exit, making it
    convenient to add to the plot.  For multi-panel plots, par is
    returned to the value it had before the call, and so adorn must be
    used to add to individual panels.sealevel-class explains the
    structure of sealevel objects, and also outlines the other functions
    dealing with them.library(oce)
data(sealevel)
## local Halifax time is UTC + 4h; see [2] on timing
juan <- as.POSIXct("2003-09-29 00:15:00", tz="UTC")+4*3600
plot(sealevel, which=1, xlim=juan+86400*c(-7,7))
abline(v=juan, col='red')Run the code above in your browser using DataLab