# 1.1. F2 der ersten 10 Segmente
vowlax.fdat[1:10,2]

# 1.2 F1 und F3 vom letzten Segment
vowlax.fdat[nrow(vowlax.fdat),c(1,3)]

# 1.3 Grundfrequenz Segmente 10, 20, 28
vowlax.fund[c(10, 20, 28),]

# 1.4 Grundfrequenz aller "a" Vokale
temp = vowlax.l == "a"
vowlax.fund[temp,]

# 1.5 F2 und F3 aller "I" und "O" Vokale
temp = vowlax.l %in% c("I", "O")
vowlax.fdat[temp,2:3]

# 1.6 F2 der "a" und "E" Vokale Sprecherin "68"
temp = vowlax.spkr=="68" & vowlax.l %in% c("a", "E")
vowlax.fdat[temp,2]

# 1.7 F1-F4 
# (zwischen der 
# Startzeit und zeitlichem Mittelpunkt)
dcut(vowlax.fdat, 0, 0.5, prop=T)

# 1.8 Grundfrequenz fŸr 
# den mittleren 50% (zwischen dem 25% und 75% Zeitpunkten)
dcut(vowlax.fund, .25, .75, prop=T)

# 1.9 dB-RMS zum zeitlichen Mittepunkt
dcut(vowlax.rms, .5, prop=T)

# 1.10 F1 und F2 der "i:" Vokale zum Segment-Onset
temp = vowlax.l == "I"
dcut(vowlax.fdat[temp,1:2], 0, prop=T)

# 1.11 dB-RMS 15 ms vor dem Segment-Offset
dcut(vowlax.rms, end(vowlax.rms)-15)

# 1.12 F1 und F3 15 ms 
# vor dem Segment-Offset 
# fŸr "a" und "I" Vokale, Sprecher "67"
temp = vowlax.spkr == "67" & vowlax.l %in% c("a", "I")
dcut(vowlax.fdat[temp,c(1,3)], end(vowlax.fdat[temp,])-15)

# 2.1 Grundfrequenz als Funktion 
# der Zeit vom 10en Segment (Abb. 2.1)
plot(vowlax.fund[10,], type="l", ylab="Frequenz (Hz)", xlab="Dauer (ms)")

# 2.2 F1 und F2 zusammen als Funktion 
# der Zeit der ersten 6 Segmente (in einer  2 x 3 Abbildung 
# (Abb 2.2)
par(mfrow=c(2,3))
plot(vowlax.fdat[1:6,1:2], type="b", 
 ylab="Frequenz (Hz)", xlab="Dauer (ms)", contig=F)

# 2.3 F2 von "I" und "a" als Funktion der Zeit, 
# Sprecher "67" (Abb 2.3)
par(mfrow=c(1,1))
temp = vowlax.spkr=="67" & vowlax.l %in% c("I", "a")
dplot(vowlax.fdat[temp,2], vowlax.l[temp], 0.5, ylab="Frequenz (Hz)", ylim=c(1000, 2500))

# 2.4 F2 von "E" als Funktion der Zeit getrennt fŸr die beiden Sprecher 
temp =  vowlax.l =="E"
dplot(vowlax.fdat[temp,2], vowlax.spkr[temp], norm=T, ylab="Frequenz (Hz)", ylim=c(1000, 3000), xlab="Proportionale Dauer")

#  Inwiefern kann die Abbildung 
# durch Sprecherunterschiede erklŠrt werden? 
# Ja das ist zu erwarten: F2 der Sprecherin ist hoeher.

# 2.5 F2 von "a", Sprecher "67" getrennt 
# fŸr den davorkommenden Kontext "m" und "d" (Abb. 2.5). 

temp = vowlax.left %in% c("m", "d") & vowlax.l=="a" & vowlax.spkr=="67"
dplot(vowlax.fdat[temp,2], vowlax.left[temp], norm=T, 
ylab="Frequenz (Hz)", xlab="Proportionale Dauer")

# Welche phonetischen Faktoren erklŠren 
# die Unterschiede vor allem 
# zwischen proportionale Zeiten 0.0 - 0.4?
# Der F2-Lokus, der niedriger ist fuer Labiale im Vergleich
# zu Alveolaren.