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

```{r DataName.lm}
DataName.lm = lm(ResponseName ~ PredictorName, data=DataName)
library(broom)
augment(DataName.lm)
summary(DataName.lm)
```


```{r plotDataName.lm, fig.cap="Residual analysis for DataName.lm"}
library(ggfortify)
autoplot(DataName.lm)
```
