postaud: Equal loudness compression
In tlevine/tuneR: Analysis of music and speech

Description Usage Arguments Value Author(s) References See Also Examples

Do loudness equalization and cube root compression

1 2	postaud(x, fmax, fbtype = c("bark", "mel", "htkmel", "fcmel"), broaden = FALSE)

`x`	Matrix of spectra (output of `audspec`).
`fmax`	Maximum frequency im Hertz.
`fbtype`	Auditory frequency scale.
`broaden`	Use two additional frequency bands for calculation.

`x`	Matrix of the per sample/frame (columns) spectra after applying the frequency dependant loudness equalization and compression.
`eql`	Vector of the equal loudness curve.

Sebastian Krey krey@statistik.tu-dortmund.de

Daniel P. W. Ellis http://www.ee.columbia.edu/~dpwe/resources/matlab/rastamat/, Hynek Hermansky

audspec, dolpc

  testsound <- normalize(sine(400) + sine(1000) + square(250), "16")
  pspectrum <- powspec(testsound@left, testsound@samp.rate)
  aspectrum <- audspec(pspectrum, testsound@samp.rate)
  paspectrum <- postaud(x = aspectrum$aspectrum, fmax = 5000, 
    fbtype = "mel")