R/longreset.R

In RSEIS: Seismic Time Series Analysis Tools

`longreset` <-
function(NPP, PS)
{
 
  if(PS==FALSE)
    {
      locator(1)
      kplot = 0
      par(mfrow=c(NPP,1))
    }
  else
    {
     
      message("Ending postscript")
      dev.off()
      kplot = 0
    }

  return(kplot)
}