# Segmentlist von allen [h]s
h.s = emu.query("sabinevot", "*", "Phonetik=h")
v.s = emu.requery(h.s, "Phonetik", "Phonetik", seq=-1)
h.l = label(v.s)
z.l = emu.requery(h.s, "Phonetik", "Zahl", j=T)
dasp = dur(h.s)
dver = dur(v.s)
boxplot(dasp ~ h.l * z.l)
boxplot(dver ~ h.l * z.l)
prop = dasp/(dver + dasp)
boxplot(prop ~ h.l * z.l)

labs = paste(z.l, h.l, sep=".")

tapply(prop, labs, mean)

summary(aov(dasp ~ h.l * z.l))