
```{r}
#| label = "Desc{{DataName}}"
{{DataName}} |> 
drop_na({{ResponseName}}) |> 
group_by({{FactorSet}}) |> 
summarise(
Mean = mean({{ResponseName}}),
StDev = sd({{ResponseName}}),
Count = n()
) |>
mutate(StdErr = StDev/sqrt(Count)) |>
kable(caption="Descriptive statistics for {{ResponseName}} disaggregated by {{FactorSet}}.")
```
