powered by
Envelope Function with Hilbert Transform
envelope(x)
vector of the absolute of the hilbert transform
signal vector
Jonathan M. Lees<jonathan.lees.edu>
Uses the hilbert transform to get the envelope function.
data(CE1) ev <- envelope(CE1$y) plot(CE1$x, CE1$y, type='l') lines(CE1$x,ev, col='red')
Run the code above in your browser using DataLab