# NOT RUN {
### multilevel random-effects model
res <- rma.mv(yi, vi, random = ~ 1 | district/school, data=dat.konstantopoulos2011)
print(res, digits=3)
### Cook's distances
x <- cooks.distance(res)
x
plot(x, type="o", pch=19)
### hat values
hatvalues(res)
# }
Run the code above in your browser using DataCamp Workspace