
```{r}
#| label = "{{DataName}}.lme"
library(nlme)
{{DataName}}.lme = lme({{ResponseName}} ~ {{BlockingName}}+{{Factor1Name}}*{{Factor2Name}}, random=~1|{{MainPlotID}}, data = {{DataName}})
library(broom)
{{DataName}}.lme |> augment()
{{DataName}}.lme |> anova()
```

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

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