powered by
VELOCITY.SEISN(TH, sel = 1:length(TH$JSTR), inst = 1, Kal = Kal, FILT = list(ON = TRUE, fl = 1/30, fh = 7, type = "HP", proto = "BU"))