Rquake (version 2.5-1)

Y2Pphase: Convert Y-phase to P-phase

Description

Removes extraneous other-phase from a pick file. If Ypix were made initially as a rough pick, this removes them.

Usage

Y2Pphase(twpx, phase)

Value

WPX returned without other-phases

Arguments

twpx

WPX list

phase

character, phase to exchange to P

Author

Jonathan M. Lees<[e-mail]>

Details

Initially many events may be picked using GPIX button. These should be removed after the P-phases have been determined with PickWin.

See Also

PPIX, GPIX, YPIX, PickWin

Examples

data(GH, package='RSEIS')
WW = RSEIS::uwpfile2ypx(GH$pickfile)

twpx  = latlonz2wpx(WW, GH$pickfile$STAS )

twpx$phase[twpx$phase=='P']  = 'Y'
####  now twpx is like a Ypix from swig
###  switch to P
newwpx = Y2Pphase(twpx, "Y" )