## normalize all Peterson & Barney (1952) vowels based
## on the first three formant frequencies.
data (pbvowels)
normalized = normalize (pbvowels[,7:8], pbvowels$speaker, pbvowels$vowel)
## the benefits of normalizing vowels can be seen by
## using vowel.plot (included in this package)
## the top row of the figure presents unnormalized vowels.
## There is substantial overlap between categories.
## the bottom row presents normalized vowels.
## Normalization greatly reduces between-category overlap.
par (mfrow = c(2,2), mar = c(3,3,1,1))
vowelplot (pbvowels$f1, pbvowels$f2, pbvowels$vowel,
pointType = 16, logaxes = 'xy')
vowelplot (pbvowels$f1, pbvowels$f2, pbvowels$vowel,
meansOnly = TRUE, ellipses = TRUE, logaxes = 'xy')
vowelplot (normalized$formants$f1, normalized$formants$f2,
pbvowels$vowel, pointType = 16)
vowelplot (normalized$formants$f1, normalized$formants$f2,
pbvowels$vowel, meansOnly = TRUE, ellipses = TRUE)
Run the code above in your browser using DataLab