R/ruler.R

In RSEIS: Seismic Time Series Analysis Tools

ruler<-function(a="")
  {
    if(missing(a)) { a=NULL }
    if(is.null(a))
      {
        cat("c...|....1....|....2....|....3....|....4....|....5....|....6....|....7....|", sep="\n")
      }
    else
      {
        cat(a, sep="\n")
        cat("c...|....1....|....2....|....3....|....4....|....5....|....6....|....7....|", sep="\n")
      }

  }