Revision 836f846d9afeadb15ac731099c46c9a81573fe74 authored by Uwe Ligges on 04 April 2014, 00:00:00 UTC, committed by Gabor Csardi on 04 April 2014, 00:00:00 UTC
1 parent c629947
Raw File
bark2hz.R
# This code is based on the Matlab implementations of PLP and Rasta
# feature calculations by Daniel P. W. Ellis of Columbia University /
# International Computer Science Institute.  For more details, see:
# http://www.ee.columbia.edu/~dpwe/resources/matlab/rastamat/

bark2hz <- function(z){
    
    if(!is.numeric(z) || z < 0)
      stop("frequencies have to be non-negative")

    # Hynek's formula (taken from rasta/audspec.c)
    600 * sinh(z/6)
}

back to top