```r
plot(growth~tannin)
x<-seq(min(tannin),max(tannin),length=100) 
matlines(x,predict(mod,list(tannin=x),interval="confidence"))
```

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