Bids$size.sq <- Bids$size ^ 2
## Fit null model
fit0 <- glm.hP(formula.mu = numbids ~ leglrest + rearest + finrest +
whtknght + bidprem + insthold + size + size.sq + regulatn,
formula.gamma = numbids ~ 1, data = Bids)
## Fit full model
fit <- glm.hP(formula.mu = numbids ~ leglrest + rearest + finrest +
whtknght + bidprem + insthold + size + size.sq + regulatn,
formula.gamma = numbids ~ leglrest, data = Bids)
## Likelihood ratio test for the nested models
lrtest(fit,fit0)
Run the code above in your browser using DataLab