```r
larvae$cooks<-cooks.distance(mod)
g0<-ggplot(data=larvae, aes(x=tannin,y=growth))
g1<-g0+geom_point()
g1<-g1+geom_smooth(method="lm")
g1+geom_point(size=larvae$cooks*10,col="red")
```

<img src="Quantitative_and_Spatial_files/figure-html/unnamed-chunk-124-1.png" width="672" />