getvertsorder {RSEIS}

Get Order of Picks from P-wave Arrivals

Description

Uses a Pickfile and the Waveform file, and creates a vector ordering the waveforms by P-wave arrival.

Usage

getvertsorder(P, GU)

Arguments

P

Pickfile Structure

GU

Waveform structure

Details

Waveforms structure may already have pickfile, but this is overridden by input pickfile P.

Value

list:

sel

index of traces in order of first P-wave arrival

win

vector, c(1,2), time window from the first arrival to the last

Author(s)

Jonathan M. Lees<jonathan.lees.edu>

See Also

swig

Examples

data(GH)

vertord <-  getvertsorder(GH$pickfile, GH)

swig(GH,  sel=vertord$sel, WIN=vertord$win,   SHOWONLY=TRUE)