R/AdaptLevel.R

In m-vidal/pv01: An open source auditory toolbox for perception-based music analysis.

Defines functions AdaptLevel

Documented in AdaptLevel

AdaptLevel <- function(inSignal, indB)
{
  theRMS <- sqrt(sum(inSignal^2)/length(inSignal))
  theFactor <- 10^(indB/20 - log10(theRMS))
  outSignaldB <- inSignal*theFactor

  return(as.numeric(outSignaldB))
}