data(KH)
dt = KH$dt[1]
y = KH$JSTR[[1]]
x = seq(from=0, by=dt, length=length(y))
fl=rep(1/100, 5)
fh=1/c(1,2,5,10,20)
FILT.spread(x, y, dt, fl = fl, fh = fh, sfact = 1, WIN = NULL, PLOT = TRUE, TIT = NULL, TAPER = 0.05)
Run the code above in your browser using DataLab