RSEIS (version 2.6-0)

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

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.7119336128235,102.438451051712,113.092049956322,123.540771961212 )
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)