data(ccdata)
ccdata$packyear <- ccdata$packyear+runif(nrow(ccdata))
# UNWEIGHTED GOF
fit <- blm(y~female+packyear,data = ccdata)
gof(fit)
# WEIGHTED GOF
fit <- blm(y~female+packyear,data = ccdata, weight = ccdata$w)
gof(fit)
Run the code above in your browser using DataLab