require(stats)
data(CE1)
plot(CE1$x, CE1$y, type='l')
z = CE1$y[ CE1$x>5.352622 & CE1$x<5.589836]
PSTLTcurve(z, dt = CE1$dt, fwlen = 125, bwlen = 125, perc = 0.05,
stretch = 1000, MED = 255, PLOT = FALSE)
Run the code above in your browser using DataLab