## normalize all Peterson & Barney (1952) vowels based
## on the first three formant frequencies.
data (pb52)
normalized = normalize (pb52[,7:8], pb52$speaker, pb52$vowel)
## the benefits of normalizing vowels can be seen by
## using vowelplot() (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 (pb52$f1, pb52$f2, pb52$vowel,
pointType = 16, logaxes = 'xy')
vowelplot (pb52$f1, pb52$f2, pb52$vowel,
meansOnly = TRUE, ellipses = TRUE, logaxes = 'xy')
vowelplot (normalized$formants$f1, normalized$formants$f2,
pb52$vowel, pointType = 16)
vowelplot (normalized$formants$f1, normalized$formants$f2,
pb52$vowel, meansOnly = TRUE, ellipses = TRUE)
Run the code above in your browser using DataLab