avPlots(reg1)


influenceIndexPlot(reg1)

# reg1a <-update(prestige.reg4, subset=rownames(Prestige) != "general.managers")
# reg1b <-update(prestige.reg4, subset= !(rownames(Prestige) %in% c("general.managers","medical.technicians")))

influencePlot(reg1)

##                        StudRes        Hat       CookD
## general.managers    -1.3134574 0.33504477 0.172503975
## physicians          -0.3953204 0.22420309 0.009115491
## medical.technicians  2.8210910 0.06858836 0.109052582
## electronic.workers   2.2251940 0.02701237 0.026372394

qqPlot(reg1)

## medical.technicians  electronic.workers 
##                  31                  82

Look for the tails, points should be close to the line or within the confidence intervals.