1 (a)
temp = dip.l %in% c("aU", "OY") & dip.spkr == "67"
dat = dur(dip[temp,])
lab = dip.l[temp]
boxplot(dat ~ lab)
temp = lab=="OY"
shapiro.test(dat[temp])
shapiro.test(dat[!temp])
var.test(dat[temp], dat[!temp])

t.test(dat ~ lab, var.equal=T)

1(b)
temp = timevow.l %in% c("I", "a")
dat = dur(timevow[temp,])
lab = timevow.l[temp]
boxplot(dat ~ lab)
temp = lab=="I"
shapiro.test(dat[temp])
shapiro.test(dat[!temp])
var.test(dat[temp], dat[!temp])
# ungleiche Varianzen
t.test(dat ~ lab)
# Es gibt einen signifikanten Unterschied in den Dauern
# von "I" und "a" (t[12.5] = 4.29,  p < 0.001)

1(c)
temp = polhom.l %in% c("x", "c")
dat = dur(polhom[temp,])
lab = polhom.l[temp]
boxplot(dat ~ lab)
# Ausreisser entfernen
temp = dat > 200 & lab == "x"
sum(temp)
dat = dat[!temp]
lab = lab[!temp]
temp = lab=="c"
shapiro.test(dat[temp])
shapiro.test(dat[!temp])
var.test(dat[temp], dat[!temp])
t.test(dat[temp], dat[!temp], var.equal=T)


# Keine signifikanten Unterschiede.

2.
temp = vowlax.word %in% c("bin", "ist", "nicht", "Kinder", "richten", "findet", "finden", "binden")
lab = vowlax.word[temp]
dat = dur(vowlax[temp,])
temp = lab %in% c("bin", "ist", "nicht")
lab[temp] = "F"
lab[!temp] = "I"
boxplot(dat ~ lab)
# Wir brauchen nicht weiter zu pruefen, da die Dauer von "F" groesser
# ist als diejenige von "I"

3. 
# Der Locus von /d/ liegt bei 1800 Hz. Jedoch
# wenn /d/ keinen Einfluss ausuebt, dann waere
# F2 = 1500 Hz (der F2-Wert ueber alle Vokale gemittelt, 
# fuer einen maennlichen Sprecher)
anfang = dcut(isol.fdat[,2], 0, prop=T)
ende = dcut(isol.fdat[,2], 1, prop=T)
dat = c(anfang, ende)
lab = c(rep("a", length(anfang)), rep("e", length(ende)))
boxplot(dat ~ lab)
shapiro.test(anfang)
shapiro.test(ende)
var.test(anfang, ende)
# Signifikanter Unterchied in der Varianz
t.test(anfang, ende, paired=T, alt="greater")
# F2 zu Beginn vom Vokal ist signifikant groesser
# als am Ende (t[12] = 2.33, p < 0.05)

4. 
# F2 zu Beginn von /bI/ muesste niedriger sein.
temp = vowlax.left %in% c("b", "d") & vowlax.l == "I"
dat = dcut(vowlax.fdat[temp,2], 0, prop=T)
lab = vowlax.left[temp]
boxplot(dat ~ lab)

temp = lab=="b"
shapiro.test(dat[temp])
shapiro.test(dat[!temp])
var.test(dat[temp], dat[!temp])
t.test(dat ~ lab, var.equal=T, alt = "less")
# F2 zu Beginn von /bI/ ist signifikant niedriger
# als F2 zu Beginn von /dI/
# (t[24] = 2.73,  p < 0.01)

5. # f0 muesste nach /g/ niedriger sein.
temp = vowlax.left %in% c("k", "g")
zeit = start(vowlax.fund) + 15
dat = dcut(vowlax.fund[temp,], zeit[temp])
lab = vowlax.left[temp]

boxplot(dat ~ lab)
# die beiden Ausreisser entfernen.
temp = dat < 100
sum(temp)
dat = dat[!temp]
lab = lab[!temp]

temp = lab=="g"
shapiro.test(dat[temp])
shapiro.test(dat[!temp])
var.test(dat[temp], dat[!temp])

t.test(dat ~ lab, alt="less", var.equal=T)
# f0 ist nach /g/ signifikant niedriger als nach /k/
# (t[26] = 1.98, p < 0.05)