Comparison Between 2 Types of Random Interaction Models

The two models that are below evaluate the Cross-level interaction of variables using two different methods. In this analysis I will be looking into and explaining each method.

Model 1

m4_lme <- lme(popular ~ sex*texp, data = popula, random = ~ sex|school, method = "ML")
summary(m4_lme)
Linear mixed-effects model fit by maximum likelihood
 Data: popula 
      AIC      BIC    logLik
  4261.85 4306.657 -2122.925

Random effects:
 Formula: ~sex | school
 Structure: General positive-definite, Log-Cholesky parametrization
            StdDev    Corr  
(Intercept) 0.6347377 (Intr)
sex         0.4692521 0.08  
Residual    0.6264320       

Fixed effects: popular ~ sex * texp 
                Value  Std.Error   DF   t-value p-value
(Intercept)  3.313651 0.15954654 1898 20.769180   0e+00
sex          1.329479 0.13183479 1898 10.084432   0e+00
texp         0.110229 0.01013882   98 10.872007   0e+00
sex:texp    -0.034025 0.00837995 1898 -4.060303   1e-04
 Correlation: 
         (Intr) sex    texp  
sex      -0.046              
texp     -0.909  0.042       
sex:texp  0.042 -0.908 -0.046

Standardized Within-Group Residuals:
        Min          Q1         Med          Q3         Max 
-2.93387434 -0.64733763  0.02294381  0.53272602  3.49150352 

Number of Observations: 2000
Number of Groups: 100 

The first cross level interaction model looks into student perception of popularity by gender. It also looks into teachers experience while looking into the interaction of a school and sex. The fixed effect shows that there is an interaction between gender and teacher experience. The average popularity index for a boy with a teacher that has no experience is 3.31. For every 1 year increase in experience of the teacher boys perception of popularity increases by .11. On average for females their perception of popularity is 4.6 when the teacher has no experience. The random effect for this model examines a random school and says that on average the popularity perception is .63 higher than the fixed effect and females are .46 higher.

Model 2

popula %<>% mutate(ctexp = texp - mean(texp))
m4a_lme <- lme(popular ~ sex*ctexp, data = popula, random = ~ sex|school, method = "ML")
summary(m4a_lme)
Linear mixed-effects model fit by maximum likelihood
 Data: popula 
      AIC      BIC    logLik
  4261.85 4306.657 -2122.925

Random effects:
 Formula: ~sex | school
 Structure: General positive-definite, Log-Cholesky parametrization
            StdDev    Corr  
(Intercept) 0.6347377 (Intr)
sex         0.4692521 0.08  
Residual    0.6264320       

Fixed effects: popular ~ sex * ctexp 
                Value  Std.Error   DF  t-value p-value
(Intercept)  4.885851 0.06660875 1898 73.35149   0e+00
sex          0.844178 0.05510824 1898 15.31855   0e+00
ctexp        0.110229 0.01013882   98 10.87201   0e+00
sex:ctexp   -0.034025 0.00837995 1898 -4.06030   1e-04
 Correlation: 
          (Intr) sex    ctexp 
sex       -0.044              
ctexp     -0.006  0.000       
sex:ctexp  0.000 -0.004 -0.046

Standardized Within-Group Residuals:
        Min          Q1         Med          Q3         Max 
-2.93387434 -0.64733763  0.02294381  0.53272602  3.49150352 

Number of Observations: 2000
Number of Groups: 100 

The second model is a little bit of a different. In the centering of the covariates we have created a new center for the variable making the mean the starting point. We are controlling the outputs and anything below mean will fall below 0 and those above will be higher than 0. It shows that on average males perception of popularity is 4.88 when teacher experience is average. Females perception of popularity is 5.72 when teacher experience is average. When the mean teacher’s experience increases by 1 year boys perception of popularity increases by .11 while females perception decreases by .03. The random effect for this model examines a random school and suggests thaton average the popularity perception is .6347 higher than the fixed effect and females are .4692 higher than 4.64.

Comparison of 2 Models

library(texreg)
htmlreg(list(m4_lme, m4a_lme))
Statistical models
Model 1 Model 2
(Intercept) 3.31*** 4.89***
(0.16) (0.07)
sex 1.33*** 0.84***
(0.13) (0.06)
texp 0.11***
(0.01)
sex:texp -0.03***
(0.01)
ctexp 0.11***
(0.01)
sex:ctexp -0.03***
(0.01)
AIC 4261.85 4261.85
BIC 4306.66 4306.66
Log Likelihood -2122.92 -2122.92
Num. obs. 2000 2000
Num. groups 100 100
p < 0.001, p < 0.01, p < 0.05

The 2 models are similar.The Similarities we can look into is the random effect which demonstrates that a random school’s gender difference has the same difference in either model. Just because there are some numerical differences in the intercepts and slopes the story line of the interaction of teachers experience and gender is still the center of the models. They both examine the interaction of teachers experience with gender to see the influence both variables have together on personal perception of popularity. The differences between both models are the fixed effect calculations but it is different because we have centered the variable teachers experience. This is to control the outliers and to see where gender falls when the mean of teachers experience is the starting point.

LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQojIyBDb21wYXJpc29uIEJldHdlZW4gMiBUeXBlcyBvZiBSYW5kb20gSW50ZXJhY3Rpb24gTW9kZWxzIA0KKlRoZSB0d28gbW9kZWxzIHRoYXQgYXJlIGJlbG93IGV2YWx1YXRlIHRoZSBDcm9zcy1sZXZlbCBpbnRlcmFjdGlvbiBvZiB2YXJpYWJsZXMgdXNpbmcgdHdvIGRpZmZlcmVudCBtZXRob2RzLiBJbiB0aGlzIGFuYWx5c2lzIEkgd2lsbCBiZSBsb29raW5nIGludG8gYW5kIGV4cGxhaW5pbmcgZWFjaCBtZXRob2QuKg0KDQojIyBNb2RlbCAxDQpgYGB7cn0NCm00X2xtZSA8LSBsbWUocG9wdWxhciB+IHNleCp0ZXhwLCBkYXRhID0gcG9wdWxhLCByYW5kb20gPSB+IHNleHxzY2hvb2wsIG1ldGhvZCA9ICJNTCIpDQpzdW1tYXJ5KG00X2xtZSkNCmBgYA0KKlRoZSBmaXJzdCBjcm9zcyBsZXZlbCBpbnRlcmFjdGlvbiBtb2RlbCBsb29rcyBpbnRvIHN0dWRlbnQgcGVyY2VwdGlvbiBvZiBwb3B1bGFyaXR5IGJ5IGdlbmRlci4gSXQgYWxzbyBsb29rcyBpbnRvIHRlYWNoZXJzIGV4cGVyaWVuY2Ugd2hpbGUgbG9va2luZyBpbnRvIHRoZSBpbnRlcmFjdGlvbiBvZiBhIHNjaG9vbCBhbmQgc2V4LiBUaGUgZml4ZWQgZWZmZWN0IHNob3dzIHRoYXQgdGhlcmUgaXMgYW4gaW50ZXJhY3Rpb24gYmV0d2VlbiBnZW5kZXIgYW5kIHRlYWNoZXIgZXhwZXJpZW5jZS4gVGhlIGF2ZXJhZ2UgcG9wdWxhcml0eSBpbmRleCBmb3IgYSBib3kgd2l0aCBhIHRlYWNoZXIgdGhhdCBoYXMgbm8gZXhwZXJpZW5jZSBpcyAzLjMxLiBGb3IgZXZlcnkgMSB5ZWFyIGluY3JlYXNlIGluIGV4cGVyaWVuY2Ugb2YgdGhlIHRlYWNoZXIgYm95cyBwZXJjZXB0aW9uIG9mIHBvcHVsYXJpdHkgaW5jcmVhc2VzIGJ5IC4xMS4gT24gYXZlcmFnZSBmb3IgZmVtYWxlcyB0aGVpciBwZXJjZXB0aW9uIG9mIHBvcHVsYXJpdHkgaXMgNC42IHdoZW4gdGhlIHRlYWNoZXIgaGFzIG5vIGV4cGVyaWVuY2UuIFRoZSByYW5kb20gZWZmZWN0IGZvciB0aGlzIG1vZGVsIGV4YW1pbmVzIGEgcmFuZG9tIHNjaG9vbCBhbmQgc2F5cyB0aGF0IG9uIGF2ZXJhZ2UgdGhlIHBvcHVsYXJpdHkgcGVyY2VwdGlvbiBpcyAuNjMgaGlnaGVyIHRoYW4gdGhlIGZpeGVkIGVmZmVjdCBhbmQgZmVtYWxlcyBhcmUgLjQ2IGhpZ2hlci4qDQoNCiMjIE1vZGVsIDINCmBgYHtyfQ0KcG9wdWxhICU8PiUgbXV0YXRlKGN0ZXhwID0gdGV4cCAtIG1lYW4odGV4cCkpDQpgYGANCg0KYGBge3J9DQptNGFfbG1lIDwtIGxtZShwb3B1bGFyIH4gc2V4KmN0ZXhwLCBkYXRhID0gcG9wdWxhLCByYW5kb20gPSB+IHNleHxzY2hvb2wsIG1ldGhvZCA9ICJNTCIpDQpzdW1tYXJ5KG00YV9sbWUpDQpgYGANCipUaGUgc2Vjb25kIG1vZGVsIGlzIGEgbGl0dGxlIGJpdCBvZiBhIGRpZmZlcmVudC4gSW4gdGhlIGNlbnRlcmluZyBvZiB0aGUgY292YXJpYXRlcyB3ZSBoYXZlIGNyZWF0ZWQgYSBuZXcgY2VudGVyIGZvciB0aGUgdmFyaWFibGUgbWFraW5nIHRoZSBtZWFuIHRoZSBzdGFydGluZyBwb2ludC4gV2UgYXJlIGNvbnRyb2xsaW5nIHRoZSBvdXRwdXRzIGFuZCBhbnl0aGluZyBiZWxvdyBtZWFuIHdpbGwgZmFsbCBiZWxvdyAwIGFuZCB0aG9zZSBhYm92ZSB3aWxsIGJlIGhpZ2hlciB0aGFuIDAuIEl0IHNob3dzIHRoYXQgb24gYXZlcmFnZSBtYWxlcyBwZXJjZXB0aW9uIG9mIHBvcHVsYXJpdHkgaXMgNC44OCB3aGVuIHRlYWNoZXIgZXhwZXJpZW5jZSBpcyBhdmVyYWdlLiBGZW1hbGVzIHBlcmNlcHRpb24gb2YgcG9wdWxhcml0eSBpcyA1LjcyIHdoZW4gdGVhY2hlciBleHBlcmllbmNlIGlzIGF2ZXJhZ2UuIFdoZW4gdGhlIG1lYW4gdGVhY2hlcidzIGV4cGVyaWVuY2UgaW5jcmVhc2VzIGJ5IDEgeWVhciBib3lzIHBlcmNlcHRpb24gb2YgcG9wdWxhcml0eSBpbmNyZWFzZXMgYnkgLjExIHdoaWxlIGZlbWFsZXMgcGVyY2VwdGlvbiBkZWNyZWFzZXMgYnkgLjAzLiBUaGUgcmFuZG9tIGVmZmVjdCBmb3IgdGhpcyBtb2RlbCBleGFtaW5lcyBhIHJhbmRvbSBzY2hvb2wgYW5kIHN1Z2dlc3RzIHRoYXRvbiBhdmVyYWdlIHRoZSBwb3B1bGFyaXR5IHBlcmNlcHRpb24gaXMgLjYzNDcgaGlnaGVyIHRoYW4gdGhlIGZpeGVkIGVmZmVjdCBhbmQgZmVtYWxlcyBhcmUgLjQ2OTIgaGlnaGVyIHRoYW4gNC42NC4qDQoNCiMjIENvbXBhcmlzb24gb2YgMiBNb2RlbHMgDQpgYGB7ciwgcmVzdWx0cz0nYXNpcyd9DQpsaWJyYXJ5KHRleHJlZykNCmh0bWxyZWcobGlzdChtNF9sbWUsIG00YV9sbWUpKQ0KYGBgDQoqVGhlIDIgbW9kZWxzIGFyZSBzaW1pbGFyLlRoZSBTaW1pbGFyaXRpZXMgd2UgY2FuIGxvb2sgaW50byBpcyB0aGUgcmFuZG9tIGVmZmVjdCB3aGljaCBkZW1vbnN0cmF0ZXMgdGhhdCBhIHJhbmRvbSBzY2hvb2wncyBnZW5kZXIgZGlmZmVyZW5jZSBoYXMgdGhlIHNhbWUgZGlmZmVyZW5jZSBpbiBlaXRoZXIgbW9kZWwuIEp1c3QgYmVjYXVzZSB0aGVyZSBhcmUgc29tZSBudW1lcmljYWwgZGlmZmVyZW5jZXMgaW4gdGhlIGludGVyY2VwdHMgYW5kIHNsb3BlcyB0aGUgc3RvcnkgbGluZSBvZiB0aGUgaW50ZXJhY3Rpb24gb2YgdGVhY2hlcnMgZXhwZXJpZW5jZSBhbmQgZ2VuZGVyIGlzIHN0aWxsIHRoZSBjZW50ZXIgb2YgdGhlIG1vZGVscy4gVGhleSBib3RoIGV4YW1pbmUgdGhlIGludGVyYWN0aW9uIG9mIHRlYWNoZXJzIGV4cGVyaWVuY2Ugd2l0aCBnZW5kZXIgdG8gc2VlIHRoZSBpbmZsdWVuY2UgYm90aCB2YXJpYWJsZXMgaGF2ZSB0b2dldGhlciBvbiBwZXJzb25hbCBwZXJjZXB0aW9uIG9mIHBvcHVsYXJpdHkuIFRoZSBkaWZmZXJlbmNlcyBiZXR3ZWVuIGJvdGggbW9kZWxzIGFyZSB0aGUgZml4ZWQgZWZmZWN0IGNhbGN1bGF0aW9ucyBidXQgaXQgaXMgZGlmZmVyZW50IGJlY2F1c2Ugd2UgaGF2ZSBjZW50ZXJlZCB0aGUgdmFyaWFibGUgdGVhY2hlcnMgZXhwZXJpZW5jZS4gVGhpcyBpcyB0byBjb250cm9sIHRoZSBvdXRsaWVycyBhbmQgdG8gc2VlIHdoZXJlIGdlbmRlciBmYWxscyB3aGVuIHRoZSBtZWFuIG9mIHRlYWNoZXJzIGV4cGVyaWVuY2UgaXMgdGhlIHN0YXJ0aW5nIHBvaW50LioNCg==