diff --git a/functions.qmd b/functions.qmd
index 44d42cc..ce58e37 100644
--- a/functions.qmd
+++ b/functions.qmd
@@ -359,7 +359,7 @@ With this theory under your belt, we'll then show you a bunch of examples to ill
 
 When you start writing functions that use dplyr verbs you rapidly hit the problem of indirection.
 Let's illustrate the problem with a very simple function: `grouped_mean()`.
-The goal of this function is compute the mean of `mean_var` grouped by `group_var`:
+The goal of this function is to compute the mean of `mean_var` grouped by `group_var`:
 
 ```{r}
 grouped_mean <- function(df, group_var, mean_var) {