# Segmentliste von "h"
seg.h=emu.query("sb", "*", "Phonetik=h")

# Davorkommende Segmente
seg.davor = emu.requery(seg.h, "Phonetik", "Phonetik", sequence = -1)

# Etikettierungen der davorkommenden Segmente
seg.l = label(seg.davor)

# Die oben 2 Befehle in einer Zeile
seg.l = emu.requery(seg.h, "Phonetik", "Phonetik", sequence = -1, just=T)

#Dauer von VOT
d=dur(seg.h)

# Boxplot Abbildung
boxplot(d~seg.l)

# Die Anzahl der Silben
zahl = emu.requery(seg.h, "Phonetik", "Zahl", just=T)

# Boxplot der Dauern also Funktion der Etikettierungen und Zahlen
boxplot(d ~ seg.l * zahl)

# Anwendung von mean auf die Dauern getrennt pro Kategorie 
tapply(d, seg.l, mean)