markseis24: Mark 24 hour seismic display

Description Usage Arguments Details Value Author(s) See Also Examples

Description

Mark a 24 hour seismic display

Usage

1
2
markseis24(pjj, pix = list(yr = 2009, jd = 1, hr = 0, mi = 0, sec = 0,
dur = 0), col = "red", LEGON = 3, BARON = TRUE, ARROWS = TRUE, lwd=1)

Arguments

pjj

Output information from plotseis24 (x,y, yr, jd)

pix

list: date list consisting of: yr, jd, hr, mi, sec, dur)

col

Color, specified as color index, character string or rgb

LEGON

plotting flag for legs: 0=no legs, 1=left leg, 2=right leg, 3=both legs(def ault)

BARON

logical:plotting flag for bar

ARROWS

logical: plot arrows FALSE=no arrows

lwd

numeric, graphical parameter, line width

Details

the LEGON parameter controls the small marks at the ends: Either left(1) right(2) both(3) or no legs(0) are plotted. window bars should wrap around the ends of the hour to the next hour below. The durations of the windows are supplied in seconds. If no duration is supplied, it is set to 0. If one duration is supplied it is copied to all other windows.

Value

Graphical Side effects

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

See Also

winmark, getseis24, plotseis24

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
## Not run: 
##  the database DB was constructed with makeDB

usta = "CAL"
acomp = "V"

iday = 2

###   get one day's worth of data
JJ <- getseis24(DB, 2009, iday, "CAL", "V", kind = 1)

###  plot day
pjj <- plotseis24(JJ, dy=1/18, FIX=24, SCALE=0,
FILT <- list(ON=FALSE, fl=0.5 , fh=20.0, type="BP", proto="BU"),
RCOLS=c(rgb(0.2, .2, 1), rgb(.2, .2, .2))  )
title(paste("CAL", "V"))

###   set up pix
WINS2 <- win15
Apix <- WINS2$hr[seq(from=1, to=length(WINS2$hr), by=2) ]
dur <- (WINS2$hr[seq(from=2, to=length(WINS2$hr), by=2) ]-Apix)*3600

## dur <- rep(0, times=length(Apix))

##  mark the 24 hour plot
markseis24(pjj, pix =list(yr=rep(pjj$yr, length(Apix)),
 jd=rep(pjj$jd, length(Apix)) , hr=Apix, mi=rep(0, length(Apix)),
sec=rep(0, length(Apix)), dur=dur), col='red', ARROWS=FALSE )





## End(Not run)


Search within the RSEIS package
Search all R packages, documentation and source code

Questions? Problems? Suggestions? or email at ian@mutexlabs.com.

Please suggest features or report bugs with the GitHub issue tracker.

All documentation is copyright its authors; we didn't write any of that.