Kal <- PreSet.Instr()
data(KH)
inst <- rep(0, length(KH$STNS))
VH <- VELOCITY.SEISN(KH, sel = 1, inst = 1,
Kal = Kal, FILT = list(ON = FALSE, fl = 1/30, fh = 7,
type = "HP", proto = "BU"))
Run the code above in your browser using DataLab