R/selstas.R

In RSEIS: Seismic Time Series Analysis Tools

Defines functions selstas

Documented in selstas

selstas <-
function(sta, ind)
  {
    for(i in 1:length(sta))
      {
        g = sta[[i]]
        sta[[i]] = g[ind]

      }
    return(sta)
  }

Try the RSEIS package in your browser