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

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

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