path = "hier etwas eingeben"
attach(paste(path, "anova1", sep="/"))


#### Beziehung zwischen gepaartem t-test und ANOVA
ba = c(10, -20, 5, -10, -25, 10, -5, 0)
pa = c(20, -10, 15, 0, -20, 16, 7, 5)
vot = c(ba, pa)
vot.l = factor(c(rep("ba", length(ba)), rep("pa", length(pa))))
t.test(vot ~ vot.l, var.equal=T)

t.test(vot ~ vot.l, var.equal=T, paired=T)

Sprecher = factor(rep(1:8, 2))
vot.aov = aov(vot ~ vot.l + Error(Sprecher/vot.l))
summary(vot.aov)

dr
names(dr)
attach(dr)

boxplot(D ~ Dialekt * Position)
interaction.plot(Dialekt, Position, D)
# Befehl fuer ANOVA
dr.aov = aov(D ~    

summary(dr.aov)
Tukey.rm(D, 94.2, 8, Dialekt, Position)