
```{r}
#| label = "{{DataName}}.lm"
{{DataName}}.lm = lm({{ResponseName}} ~ {{Factor1Name}}*{{Factor2Name}}*{{Factor3Name}}, data = {{DataName}})
{{DataName}}.lm |> anova()
```


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