R: Set Window Pix for swig

setwpix {RSEIS} | R Documentation

## 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

### Details

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

### Value

list of window picks

### Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

### 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)

[Package RSEIS version 3.7-4 Index]