Learn R Programming

SII (version 1.0.3.1)

sic.critical: Alternative ANSI S3.5-1997 SII Transfer Function Weights

Description

Alternative ANSI S3.5-1997 Speech Intelligibility Index (SII) transfer function weights for for various types of speech material.

Usage

data(sic.critical)
data(sic.onethird)
data(sic.octave)

Arguments

Format

Each data frame contains the following 8 variables, each corresponding the the transfer function weights for a specific type of speech material:

fi

Center frequency, Hz

SII

Standard SII transfer function (weights)

NNS

NNS (various nonsense syllable tests where most of the English phonems occur equally often)

CID22

CID-W22 (PB-words)

NU6

NU6 monosyllables

DRT

DRT (Diagnostic Rhyme Test)

ShortPassage

short passages of easy reading material

SPIN

SPIN monosyllables

CST

Connected Speech Test

note

There is no table of alternative weights for the equally-weighted SII band procedure as the weights for this method are (by definition) constant across all bands.

Details

sic.critical

provides alternative weights for the critical band SII procedure.

sic.threeoctave

provides alternative weights for the one-third octave frequency band SII procedure.

octave

provides alternative weights for the octave frequency band SII procedure.

References

ANSI S3.5-1997, "American National Standard Methods for Calculation of the Speech Intelligibility Index" American National Standards Institute, New York.

Examples

Run this code
# NOT RUN {
## Load the alternative weights for the critical band method
data(sic.critical)

## display the weights
round(sic.critical,3)

## draw a comparison plot
ngroup <- ncol(sic.critical)
matplot(x=sic.critical[,1], y=sic.critical[,-1],
        type="o",
        xlab="Frequency, Hz",
        ylab="Weight",
        log="x",
        lty=1:ngroup,
        col=rainbow(ngroup)
)
legend(
       "topright",
       legend=names(sic.critical)[-1],
       pch=as.character(1:ngroup),
       lty=1:ngroup,
       col=rainbow(ngroup)
       )

data(threeoctave)
data(octave)
# }

Run the code above in your browser using DataLab