data(indoVowelData)
plotVowels(vowel=indo$vowel, f1=indo$f1, f2=indo$f2, grouping.factor=
indo$gender, norm.method='bark', match.unit=FALSE,
poly.order=c('i','e','a','o','u'), grayscale=TRUE)
plotVowels(data=indo, grouping.factor='subj', single.plot=FALSE,
match.axes='relative', points='none', means.cex=1.5,
poly.order=c('i','e','a','o','u'))
# simulate some diphthongs
indo$f1b <- indo$f1+sample(c(-30:-5,5:30), length(indo$f1), replace=TRUE)
indo$f2b <- indo$f2+sample(c(-30:-5,5:30), length(indo$f1), replace=TRUE)
plotVowels(vowel=indo$vowel, f1=cbind(indo$f1,indo$f1b),
f2=cbind(indo$f2,indo$f2b), grouping.factor=indo$subj,
ellipses=FALSE, polygon=FALSE)
Run the code above in your browser using DataLab