RSEIS (version 3.7-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)

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

Value

list of window picks

Details

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

See Also

swig

Examples

# NOT RUN {

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)


# }