6.6 Likelihood Ratio Test (LRT) in R