
```{r}
#| label = "{{DataName}}.lme"
library(nlme)
{{DataName}}.lme = lme({{ResponseName}} ~ {{FactorName}}, random=1|{{BlockingName}}, data = {{DataName}})
library(broom)
augment({{DataName}}.lme)
anova({{DataName}}.lme)
```

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

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