# NOT RUN {
data(ohiovowels)
means <- compute.means(ohiovowels)
vowelplot(means, color="vowels", labels="vowels")
ohd.means <- compute.means(ohiovowels, speaker="OHDMTV_M")
vowelplot(ohd.means, color="vowels", labels="none")
add.spread.vowelplot(ohiovowels, speaker="OHDMTV_M", color="vowels", sd.mult=1)
# }
Run the code above in your browser using DataLab