RSEIS (version 3.7-4)

getvertsorder: 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

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

Details

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

See Also

swig

Examples

# NOT RUN {
data(GH)

vertord <-  getvertsorder(GH$pickfile, GH)

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


# }