
```{r DataNamePlot, fig.cap="Plot of ResponseName versus Predictor with fitted line added."}
library(ggplot2)
DataName %>% ggplot(aes(y=ResponseName, x=Predictor) + geom.point() + geom_smooth(method="lm")
```


