data(school23)
model.a <- lmer(math ~ structure + SES + (1 | school.ID), data=school23)
summary(model.a)
model.b <- exclude.influence(model.a, grouping="school.ID", level="7472")
summary(model.b)
model.c <- exclude.influence(model.a, grouping="school.ID", level=c("7472", "62821"))
summary(model.c)
model.d <- exclude.influence(model.a, obs=1:10)
summary(model.d)
data(Penicillin, package="lme4")
model.d <- lmer(diameter ~ (1|plate) + (1|sample), Penicillin)
summary(model.d)
model.e <- exclude.influence(model.d, grouping="sample", level="A", gf="all")
summary(model.e)
Run the code above in your browser using DataLab