# Eventliste f0-Gipfel
gipfel = emu.query( )

# Segmentliste Vokal
vokal = emu.requery(gipfel, )

# Segmentliste Nasal
nasal = emu.requery(vokal, )

# Etikettierung Phrase
phrase = emu.requery(gipfel, )

# Die Parameter fŸr die Formel
G = 
Von = 
Noff = 

# Proportionale Dauern
p = (G-Von)/(Noff - Von)

# Etwas umstŠndlich: hier mŸssen wir
# ungespannte Vokale als "ung" und gespannte
# Vokale als "ges" umbenennen
vlabs = label(vokal)
vlabs[vlabs %in% c("E", "I", "U", "Y", "a")] = "ung"
vlabs[vlabs!="ung"] = "ges"
table(vlabs)

# Kombinierte Etikettierungen
labs = paste(phrase, vlabs, sep=".")

# Der erwŸnschte Boxplot
boxplot(p ~ labs)