Displaying 1 result from an estimated 1 matches for "models12".
Did you mean:
models1
2012 Jun 19
1
Possible bug when using encomptest
...+
^
when applied to a pair of nested linear models
Reproducibility:
----------------------
#######################################################################
##Demonstration of encomptest breaking when models are, in fact, nested
##Required libraries:
library(lmtest)
##Create models:
models12<-lmList(srcData ~ model1 + model2 | modelFactor,data=allData)
##Function to test if models are nested
isNested<-function(model1, model2){
##Test if model1 is nested in model2:
m1labs<-attr(terms(model1), "term.labels")
m2labs<-attr(terms(model2), "term.labels"...