RSEIS (version 4.2-4)

setwpix: Set Window Pix for swig

Description

Create list of windows picks suitable for plotting in swig.

Usage

setwpix(phase = NULL, col = NULL, yr = NULL, jd = NULL,
hr = NULL, mi = NULL, sec = NULL, dur = NULL, name = NULL,
 comp = NULL, dispcomp = NULL)

Value

list of window picks

Arguments

phase

phase name

col

color for plotting

yr

year

jd

julian day

hr

hour

mi

minute

sec

second

dur

duration

name

name of station

comp

component

dispcomp

display on which component

Author

Jonathan M. Lees<[e-mail]>

Details

Some phases should be displayed on only certain components of a station.

See Also

swig

Examples

data(KH)

orgtim <- c( 2005,214,7,1,10.7313152551651 )
tims <- c( 0,46.7119,102.438451,113.092049,123.54077 )
psecs  <-  NULL
nam  <-  NULL

aphases  <- NULL
sta  <- "9024"


for(j in 1:length(tims))
{
psecs  <-  c(psecs, tims[j]+orgtim[5])
nam  <-  c(nam, sta)
aphases  <-  c(aphases, paste(sep="", "K", j) )
}


pp  <-  setwpix(phase=aphases , col="blue", yr=orgtim[1], jd=orgtim[2],
hr=orgtim[3],  mi=orgtim[4], sec=psecs, dur=0, name=nam , comp="V")



W  <-  secdifL(KH$info, pp)

win  <-  c(min(W)-5, max(W)+5    )  
 swig(KH, APIX=pp, WIN=win , SHOWONLY=TRUE)