legitWPX {Rquake}

Legitimate Pix

Description

Check WPX list for legitimate picks

Usage

legitWPX(twpx, quiet=TRUE)

Arguments

twpx

pick information list (WPX)

quiet

logical, default=TRUE, FALSE generates an error message

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.

Value

integer: 0=not legitimate, 1=legitimate

Note

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

Author(s)

Jonathan M. Lees<[e-mail]>

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)