RSEIS (version 4.1-1)

pickseis24: Pick zooms on 24 hour display

Description

Pick zooms on 24 hour display.

Usage

pickseis24(pjj, DB, usta, ucomp)

Value

Graphical Side effects. Program starts swig

Arguments

pjj

output of plotseis24

DB

Database of seismic trace meta data

usta

stations to extract

ucomp

components to extract

Author

Jonathan M. Lees<[e-mail]>

Details

Use only 2 clicks on the plotseis24 display.

See Also

swig, winseis24 , plotseis24 , getseis24

Examples

if (FALSE) {

dev.new(width=8, height=12)
dev.new(width=12, height=8)

dev.set(2)
usta <- "CAL"
acomp <- "V"
JJ <- getseis24(DB, 2009, 2, usta, acomp, kind = 1)
pjj <- plotseis24(JJ, dy=1/18, FIX=24, SCALE=1, FILT=list(ON=FALSE,
fl=0.05 , fh=20.0, type="BP", proto="BU"), RCOLS=c(rgb(0.2, .2, 1),
rgb(.2, .2, .2))  )

ucomp <- c("V", "N", "E", "I")

pickseis24(pjj, DB, usta, ucomp )


}