
```{r}
#| label = "{{DataName}}Plot",
#| fig.cap = "Plot of {{ResponseName}} versus {{PredictorName}} with smoother
#| added."
library(ggplot2)
{{DataName}} |> select({{ResponseName}}, {{PredictorName}}) |> filter(!is.na({{ResponseName}}), !is.na({{PredictorName}})) |>
ggplot(aes(y={{ResponseName}}, x={{PredictorName}})) + geom_point() + geom_smooth()
```


