Y2Pphase {Rquake}

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)

Arguments

twpx

WPX list

phase

character, phase to exchange to P

Details

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

Value

WPX returned without other-phases

Author(s)

Jonathan M. Lees<[e-mail]>

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