# NOT RUN {
data(DoignonFalmagne7)
blim1 <- blim(DoignonFalmagne7$K, DoignonFalmagne7$N.R)
sum( resid(blim1)^2 ) # likelihood ratio G2
sum( resid(blim1, "pearson")^2 ) # Pearson X2
# }
Run the code above in your browser using DataLab