```r
glm2<-g0+geom_point()+geom_smooth(method="glm", method.args=list(family="quasipoisson"), se=TRUE) + ggtitle("Quasipoisson")
glm2
```

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