gistfile1.txt

interceptonlymodel <- lmer(formula = rochefant ~ 1 + (1|customer),
                           data    = arc);summary(interceptonlymodel)
interceptonlymodel <- lmer(formula = rochefant ~ 1 + (1|locality),
                           data    = arc);summary(interceptonlymodel)
interceptonlymodel <- lmer(formula = rochefant ~ 1 + (1|region),
                           data    = arc);summary(interceptonlymodel)
interceptonlymodel <- lmer(formula = rochefant ~ 1 + (1|slaughteryear),
                           data    = arc);summary(interceptonlymodel)
interceptonlymodel <- lmer(formula = rochefant ~ 1 + (1|description),
                           data    = arc);summary(interceptonlymodel)
interceptonlymodel <- lmer(formula = rochefant ~ 1 + (1|generation1),
                           data    = arc);summary(interceptonlymodel)
interceptonlymodel <- lmer(formula = rochefant ~ 1 + 
                             (1|generation1) + 
                             (1|locality) + 
                             (1|customer) +
                             (1|region)+
                             (1|slaughteryear)+
                             (1|slaughtermonth),
                           data    = arc);summary(interceptonlymodel)
tab_model(interceptonlymodel)