LRT(20, 4, 2, -58.085, -60.087)
LRT(20, 4, 2, -58.085, -60.087, Wilks=TRUE)
LRT(20, 4, 2, -57.315, -66.159)
LRT(20, 4, 2, -57.315, -66.159, Wilks=TRUE)
r1 = lm(mpg ~ disp + drat + wt, mtcars)
r2 = lm(mpg ~ disp + drat, mtcars)
anova(r2, r1)
LRT(nrow(mtcars), r1$rank, r2$rank, logLik(r1), logLik(r2))
Run the code above in your browser using DataLab