pfad = "den pfad eingeben"
attach(paste(pfad, "anova1", sep="/"))

x = 1:6
n = length(x)
v = var(x)
v * (n-1)

m = mean(x)
ssx = 


vokal = factor(names(y))
table(vokal)
SSY = 
SSE = sum(tapply(y, vokal, var) * 9)
SSR = SSY - SSE
MSE =       SSE / 18
MSR  = SSR/1
Fratio = MSR/MSE

reg = lm(y ~ vokal)
anova(reg)
t.test(y ~ vokal, var.equal=T)

var.test(y ~ vokal)
bartlett.test(y ~ vokal)

oneway.test(y ~ vokal)
kruskal.test(y ~ vokal)
var.test(y ~ vokal)
t.test(y ~ vokal, var.equal=T)
tapply(y, vokal, shapiro.test)

kruskal.test(y ~ vokal)
wilcox.test(y ~ vokal)

attach(vok)
names(vok)

table(Vokal, Gen)
boxplot(F2 ~ Gen * Vokal)
interaction.plot(Vokal, Gen, F2)

vok.aov = aov(F2 ~ Vokal * Gen)
anova(vok.aov)
# das gleiche
reg = lm(F2 ~ Vokal * Gen)
anova(reg)

tk = TukeyHSD(vok.aov)
tk