Data engineering and BI courses are free!
This functions removes the amplitude modulation of a time wave through the Hilbert amplitude envelope.
rmam(wave, f, plot = FALSE, listen = FALSE, output = "matrix", ...)an R object.
sampling frequency of wave (in Hz). Does not need to be specified if embedded in wave.
logical, if TRUE returns an oscillographic plot
of the nwe time wave (by default FALSE).
if TRUE the new sound is played back.
character string, the class of the object to return, either
"matrix", "Wave", "Sample", "audioSample" or "ts".
other oscillo graphical parameters.
If plot is FALSE, a new wave is returned. The class
of the returned object is set with the argument output.
The new time wave is obtained by dividing the original time wave by its Hilbert amplitude envelope.
Mbu Nyamsi, R. G., Aubin, T. & Bremond, J. C. 1994 On the extraction of some time dependent parameters of an acoustic signal by means of the analytic signal concept. Its application to animal sound study. Bioacoustics, 5: 187-203.
# NOT RUN {
# generate a new sound with amplitude modulation
a<-synth(f=8000, d=1, cf=1500, am=c(50,10))
# remove the amplitude modulation and plot the result
rmam(a,f=8000,plot=TRUE)
# }
Run the code above in your browser using DataLab