```r
glm1<-g0+geom_point()+geom_smooth(method="glm", method.args=list(family="poisson"), se=TRUE) +ggtitle("Poisson")
glm1
```

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