
```{r}
#| label = "{{DataName}}.lm"
{{DataName}}.lm = lm({{ResponseName}} ~ {{FactorName}}, data=DataName)
library(broom)
{{DataName}}.lm |> augment()
{{DataName}}.lm |> anova()
```

```{r}
#| label = "glance{{DataName}}.lm"
{{DataName}}.lm |> glance() |> kable()
```

```{r}
#| label = "plot{{DataName}}.lm",
#| fig.cap = "Residual analysis for {{DataName}}.lm"
library(ggfortify)
{{DataName}}.lm |> autoplot()
```
