RSEIS (version 2.8-1)

pickseis24: Pick zooms on 24 hour display

Description

Pick zooms on 24 hour display.

Usage

pickseis24(pjj, DB, usta, ucomp)

Arguments

pjj

output of plotseis24

DB

Database of seismic trace meta data

usta

stations to extract

ucomp

components to extract

Value

• Graphical Side effects. Program starts swig

Details

Use only 2 clicks on the plotseis24 display.

See Also

swig, winseis24 , plotseis24 , getseis24

Examples

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 )