library(lme4)

pfad = "Verzeichnis wo Sie anna.txt, annalang.txt, lax.txt gespeichert haben"
anna = read.table(paste(pfad, "anna.txt", sep="/"))
annalang = read.table(paste(pfad, "annalang.txt", sep="/"))
lax = read.table(paste(pfad, "lax.txt", sep="/"))

head(annalang)
head(anna)
with(anna, levels(Asp))
Asp2 = with(anna, relevel(Asp, "pre"))
levels(Asp2)
with(anna, levels(Cons))
annalang.lmer = lmer(Response ~ Asp + (1|Sp), family="binomial", data = annalang)
anna.lmer = lmer(cbind(Incorrect, Correct) ~ Asp + (1|Sp), family="binomial", data = anna)
print(annalang.lmer, corr=F)
print(anna.lmer, corr=F)

c.lmer = lmer(Response ~ Cons + (1|Sp), family="binomial", data = annalang)
print(c.lmer, corr=F)
Cons2 = with(annalang, relevel(Cons, "p"))
d.lmer = lmer(Response ~ Cons2 + (1|Sp), family="binomial", data = annalang)
print(d.lmer, corr=F)

coef(c.lmer)
c.lmer2 = lmer(Response ~ Cons + (1 + Cons|Sp), family="binomial", data = annalang)
anova(c.lmer, c.lmer2)