pickseis24 {RSEIS}

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

Details

Use only 2 clicks on the plotseis24 display.

Value

Graphical Side effects. Program starts swig

Author(s)

Jonathan M. Lees<[e-mail]>

See Also

swig, winseis24 , plotseis24 , getseis24

Examples

## Not run: 

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 )



## End(Not run)