R/getPDEscreen.R

In RSEIS: Seismic Time Series Analysis Tools

Defines functions getPDEscreen

Documented in getPDEscreen

getPDEscreen<-function(pde = '/home/lees/Site/Santiaguito/pdq.eqs')
  {
    spde  = scan(file=pde, what="", sep="\n")

    kpde = list()
    for(i in 1:length(spde))
      {
        kpde[[i]]  = parse.pde(spde[i])

      }
    invisible(kpde)
  }

Try the RSEIS package in your browser