pfad = "Den Pfad eingeben wo anovaobjekte gespeichert wurde"
attach(paste(pfad, "anovaobjekte", sep="/"))

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

m = mean(x)
ssx = 

attach(vokal)
table(V)
SSY = 
SSE = sum(tapply(F2, V, var) * 9)
SSR = SSY - SSE
MSE = SSE/18
MSR = SSR/1
Fratio = MSR/MSE

reg = lm(F2 ~ V)
anova(reg)
t.test(F2 ~ V, var.equal=T)

var.test(F2 ~ V)
bartlett.test(F2 ~ V)

oneway.test(F2 ~ V)
t.test(F2 ~ V)
tapply(F2, V, shapiro.test)
kruskal.test(F2 ~ V)
wilcox.test(F2 ~ V)

detach(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