powered by
Uses a Pickfile and the Waveform file, and creates a vector ordering the waveforms by P-wave arrival.
getvertsorder(P, GU)
list:
index of traces in order of first P-wave arrival
vector, c(1,2), time window from the first arrival to the last
Pickfile Structure
Waveform structure
Jonathan M. Lees<jonathan.lees.edu>
Waveforms structure may already have pickfile, but this is overridden by input pickfile P.
swig
data(GH) vertord <- getvertsorder(GH$pickfile, GH) swig(GH, sel=vertord$sel, WIN=vertord$win, SHOWONLY=TRUE)
Run the code above in your browser using DataLab