powered by
applytaper(f, p = 0.05)
data(CE1) Xamp = CE1$y[CE1$x>5.443754 & CE1$x<5.615951] Tamp = applytaper(Xamp, p = 0.05)
Run the code above in your browser using DataLab