lmm.reg.slope <- lme(V1~ V2+V3+V4+V5+V6+V7+V8+V9+V10, data = data, random = V2+V3+V4+V5+V6+V7+V8+V9+V10|regions, method = 'ML', control = lmeControl(opt = "optim", msMaxIter=1000, maxIter = 1000, msMaxEval = 1000))
lmm.reg.slope <- lme(V1~ V2+V3+V4+V5+V6+V7+V8+V9+V10, data = data,
random = V2+V3+V4+V5+V6+V7+V8+V9+V10|regions, method = 'ML',
control = lmeControl(opt = "optim", msMaxIter=1000,
maxIter = 1000, msMaxEval = 1000))
ranef(lmm.reg.slope)
(Intercept)
AK 9.815204e-09
NY -6.132803e-09
MIN 2.393367e-08
WIS -1.884604e-08
CA 1.469633e-08
WAS -2.454771e-09
MAS -1.397460e-09
CT 7.225472e-09
FL -1.694695e-08
IL -1.233468e-09
OH -2.637688e-08
IO 7.647110e-09
TX -2.296820e-09
AZ 1.448242e-08
NC -2.484795e-09
SC 3.697730e-10
ranef(lmm.reg.slope)
(Intercept)
AK 9.815204e-09
NY -6.132803e-09
MIN 2.393367e-08
WIS -1.884604e-08
CA 1.469633e-08
WAS -2.454771e-09
MAS -1.397460e-09
CT 7.225472e-09
FL -1.694695e-08
IL -1.233468e-09
OH -2.637688e-08
IO 7.647110e-09
TX -2.296820e-09
AZ 1.448242e-08
NC -2.484795e-09
SC 3.697730e-10
contrast estimate SE df t-ratio p-value
AK$Intercept - NY$Intercept 0.97831 2.22 1 0.288 0.0137
AK$Intercept - MIN$Intercept 0.01038 0.96 1 0.01 0.5101
...
emmeans(lmm.reg.slope, pairwise ~ states$Intercept
contrast estimate SE df t-ratio p-value
AK$Intercept - NY$Intercept 0.97831 2.22 1 0.288 0.0137
AK$Intercept - MIN$Intercept 0.01038 0.96 1 0.01 0.5101
...