Let’s learn how to make cool tables! Yay!

library(lme4)
## Loading required package: Matrix
library(knitr)

setwd("~/Documents/School/SPPH 501/Assignment 1")

cd4 <- read.csv('cd4_cleaned.csv')

lmer.4 <- lmer(log_cd4 ~ (1 + week|id) + week*treat + age + gender, data=cd4,
               REML = FALSE)

lmer.5 <- lmer(log_cd4 ~ (1 + week|id) + week*treat, data=cd4,
               REML = FALSE)

lmer.anv <- anova(lmer.4, lmer.5)

kable(as.data.frame(lmer.anv))
Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
lmer.5 8 12062.48 12114.67 -6023.238 12046.48 NA NA NA
lmer.4 10 12054.15 12119.40 -6017.077 12034.15 12.32041 2 0.0021118