Rquake (version 2.4-4)

legitWPX: Legitimate Pix

Description

Check WPX list for legitimate picks

Usage

legitWPX(twpx, quiet=TRUE)

Arguments

twpx

quiet

logical, default=TRUE, FALSE generates an error message

Value

integer: 0=not legitimate, 1=legitimate

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

# NOT RUN {
###  test fails
# }
# NOT RUN {
library(RSEIS)
jk = RSEIS::cleanWPX()
legitWPX(jk)

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

legitWPX(gwpx)
# }
# NOT RUN {
# }