Rquake (version 2.5-1)

legitWPX: Legitimate Pix

Description

Check WPX list for legitimate picks

Usage

legitWPX(twpx, quiet=TRUE)

Value

integer: 0=not legitimate, 1=legitimate

Arguments

twpx

pick information list (WPX)

quiet

logical, default=TRUE, FALSE generates an error message

Author

Jonathan M. Lees<[e-mail]>

Details

Used internall to test if a WPX list has legitimate picks. Initially a list is generated with NA and 0 values in the place holders. If no legitimate picks are added, the list still exists, but the picks are bogus, so this routine will return 0.

See Also

PCsaveWPX

Examples

###  test fails

library(RSEIS)
jk = RSEIS::cleanWPX()
legitWPX(jk)

####  test passes:
data(GH, package='RSEIS')
gwpx = RSEIS::uwpfile2ypx(GH$pickfile)

legitWPX(gwpx)