pfad = "das Verzeichnis wo Sie anova1 gespeichert haben"
attach(paste(pfad, "anovaobjekte", 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 = factor(ssb.t$b)
ssb.lm = lm(
ssb.ana = Anova(
ssb.ana

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

with(dr, interaction.plot(Dialekt, Position, D))

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


##################################
with(F2m, interaction.plot(Wort, Alter, F2) )

ssb.p$stats