data(school23)
model.a <- lmer(math ~ structure + SES + (1 | school.ID), data=school23)
alt.est.a <- estex(model.a, "school.ID")
ME.cook(alt.est.a, plot=TRUE, cutoff=.17)
model.b <- exclude.influence(model.a, "school.ID", "7472")
alt.est.b <- estex(model.b, "school.ID")
ME.cook(alt.est.b, plot=TRUE, cutoff=.18)
model.c <- exclude.influence(model.b, "school.ID", "54344")
alt.est.c <- estex(model.c, "school.ID")
ME.cook(alt.est.c, plot=TRUE, cutoff=.19)Run the code above in your browser using DataLab