powered by
ZOOM.SEISN(GH, sel = 1:length(GH$dt), WIN = NULL)
data("GH") sel <- which(GH$COMPS=="V") KF <- ZOOM.SEISN(GH, sel=sel, WIN = c(0 , 5) ) swig(KF)
Run the code above in your browser using DataLab