library(lme4)
data(invData)
attach(invData)
model <- lmer(investments ~ newly_registered + ((1|NUTS2) +
((newly_registered - 1)|NUTS2) + ((newly_registered)|NUTS4)))
correction(model)
detach(invData)
Run the code above in your browser using DataLab