R/legitWPX.R

Defines functions legitWPX

Documented in legitWPX

legitWPX<-function(twpx, quiet=TRUE)
{
###  test to see if there are real picks in the WPX list
 ###  print("test legit")
 ###  print(data.frame(twpx))

  if(is.null(twpx))
    {
        return(0)
    }

  tval  = all(is.na(twpx$name))


  if(tval)
    {
      if(!quiet) cat("ERROR WPX (no picks)", sep="\n")
      return(0)

    }
  else
    {

      return(1)

    }


}

Try the Rquake package in your browser

Any scripts or data that you put into this service are public.

Rquake documentation built on May 29, 2017, 3:02 p.m.