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

lok
attach(lok)
names(lok)
lok.aov = 
summary(lok.aov)

########
ep = epsilon(slopes, Kons, Spr)
2 * (1 - pf(70.8838, 2*ep [1], 16*ep [1])) 


pos.ep =

########################

tk = Tukey.rm(slopes, 0.00810, 32, G, Kons, P)

########################
### Befehle um die 18 zu bekommen, die wir brauchen
# Teilen auf "."  
res = strsplit(rownames(tk), "\\.")
n = length(res[[1]])
# Liste in ein Vektor umstellen
res = unlist(res)
# in eine Matrix umbauen
res = matrix(res, ncol=n, byrow=T)

res[1:3,]

# Wir muessen auch auf "-" trennen
o = res[,3]
# Die Vorgaenge sind dieselben wie oben
o = strsplit(o, "-")
n = length(o[[1]])
o = unlist(o)
o = matrix(o, ncol=n, byrow=T)
# logischer Vektor
temp = res[,1] == o[,2] & res[,5]==o[,1]
cbind(tk[temp,])
########################

library(emu)
F2ssb = 
table(word.ssb, spk.ssb)
F2m = anova.prepare(F2ssb, spk.ssb, age.ssb, word.ssb) 
F2m
names(F2m) = c("F2", "Vpn", "Alter", "Wort")
attach(F2m)
ssb.aov = 
summary(ssb.aov)


ssb.tukey = 
ssb.tukey