R/ghstamp.R

Defines functions ghstamp

Documented in ghstamp

ghstamp <-function(GH, sel, WIN=c(485,600) )
  {
    ftime  <-  Zdate(GH$info, sel, t1=0)
    p1 = paste(ftime , GH$STNS[sel], GH$COMPS[sel], WIN[1], WIN[2])
    return(p1)
  }

Try the RSEIS package in your browser

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

RSEIS documentation built on Sept. 13, 2024, 1:09 a.m.