Last chance! 50% off unlimited learning
Sale ends in
STLTcurve(y, dt = 0.008, fwlen = 125, bwlen = 125,
stretch = 1000, MED = 255, PLOT = FALSE)
data(CE1)
y = CE1$y
DT = CE1$dt
sy = STLTcurve(y, dt=DT, fwlen = 25, bwlen = 25,
stretch=1000, MED=255, PLOT=FALSE)
par(mfrow=c(2,1))
plot(CE1$x, CE1$y, type='l')
plot(CE1$x,sy$rat, type='l')
Run the code above in your browser using DataLab