HilbertEnvelope {hht}

Instantaneous amplitude

Description

Generates the instantaneous amplitude of an analytic signal given by HilbertTransform

Usage

HilbertEnvelope(asig)

Arguments

asig

The analytic signal returned by HilbertTransform

Value

envelope

Instantaneous amplitude

Author(s)

Daniel C. Bowman [e-mail]

See Also

HilbertTransform, InstantaneousFrequency

Examples

tt <- seq(1000) * 0.01
sig <- sin(4 * pi * tt) + sin(3.4 * pi * tt)
asig <- HilbertTransform(sig)
env <- HilbertEnvelope(asig)
plot(tt, sig, type = "l")
lines(tt, env, col = "red")
lines(tt, -env, col = "red")