R/setypx.R

In RSEIS: Seismic Time Series Analysis Tools

`setypx`<-function()
  {
    ###  function to set up an empty  structure for pix, to be filled later
    YPX=list(tag="",
      name="",
      comp="",
      c3="",
      phase="",
      err=0,
      pol=0,
      flg=0,
      res=0,
      dur=0,
      yr = 0,
      mo = 0,
      dom = 0,
      jd =0,
      hr=0,
      mi = 0,
      sec =0,
      col = "black",
      onoff =0
      )

    return(YPX)
  }