data(d.blast)
r.blast <- lm(log10(tremor)~location+log10(distance)+log10(charge),
data=d.blast)
drop1(r.blast)
drop1Wald(r.blast)
## Example from example(glm)
dd <- data.frame(treatment = gl(3,3), outcome = gl(3,1,9),
counts = c(18,17,15,20,10,20,25,13,12))
r.glm <- glm(counts ~ outcome + treatment, data = dd, family = poisson())
drop1(r.glm, test="Chisq")
drop1Wald(r.glm)
Run the code above in your browser using DataLab