legitWPX: Legitimate Pix
In Rquake: Seismic Hypocenter Determination

Description Usage Arguments Details Value Note Author(s) See Also Examples

Check WPX list for legitimate picks

1	legitWPX(twpx, quiet=TRUE)

`twpx`
`quiet`	logical, default=TRUE, FALSE generates an error message

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.

integer: 0=not legitimate, 1=legitimate

Currently only the name is tested for all(NA), but this might be changed int he future for a more sophisticated test.

Jonathan M. Lees<jonathan.lees@unc.edu>

PCsaveWPX

###  test fails
## Not run: 
library(RSEIS)
jk = RSEIS::cleanWPX()
legitWPX(jk)

data(GH)
gwpx = RSEIS::uwpfile2ypx(GH$pickfile)

legitWPX(gwpx)

## End(Not run)