pfad = "das Verzeichnis wo Sie anova1 gespeichert haben"
attach(paste(pfad, "anova1", sep="/"))
library(car)

library(emu)
F2ssb = dcut(form.ssb[,2], .5, prop=T)
table(word.ssb, spk.ssb)
F2m = anova.mean(F2ssb, spk.ssb, age.ssb, word.ssb) 
F2m
names(F2m) = c("F2", "Vpn", "Alter", "Wort")

code = 
ssb.t = Anova.prepare(
Alter = ssb.t$b
ssb.lm = lm(
ssb.ana = Anova(
ssb.ana

interaction.plot(F2m[,3], F2m[,4], F2m[,1])


############ post-hoc tests
dr.t = Anova.prepare(dr, c("d", "b", "s", "w"))
Dial = factor(dr.t$b)
dr.lm = lm(dr.t$d ~ Dial)
Anova(dr.lm, idata=dr.t$w, idesign=~Position)
attach(dr)
interaction.plot(Dialekt, Position, D)
detach(dr)


expand.grid(unique(Dialekt), unique(Position))

dr.t = Anova.prepare(dr, c("d", "b", "s", "w"))
Dialekt = dr.t$b
Position = dr.t$w
dr.p = posthoc(Dialekt, Position, code = c("b", "w"), d = dr.t$d)

ssb.t = Anova.prepare(