A. Abbildungen

1. 
segs = emu.query("kielread", "*", "Phonetic=C | x")
sp = substring(utt(segs), 2, 3)
lab = label(segs)
boxplot(d ~ lab * sp, ylim=c(0, 200), ylab="Dauer (ms)")

2. 
tones = emu.query("gt", "*", "Tone !=x")
tones.l = label(tones)
phrase = emu.requery(tones, "Tone", "i", just=T)
o = table(tones.l, phrase)
o = t(o)
col = c("green", "red")
barplot(o, beside=T, col=col, ylab="Anzahl")
legend(locator(1), c("H-", "L-"), fill=col)

3. 
segs = emu.query("kielread", "*", "Phonetic=a")
segs.fm = emu.track(segs, "fm")
f1 = dcut(segs.fm[,1], .5, prop=T)
d = dur(segs)
sp = substring(utt(segs), 2, 3)
code = as.numeric(factor(sp))
plot(d, f1, xlab="Dauer (ms)", ylab="F1 (Hz)", pch=code, col=code)
legend(locator(1), c("M", "W"), pch=c(1,2), col=c(1,2))