diff --git a/functions.Rmd b/functions.Rmd
index 2c92713..d594cd5 100644
--- a/functions.Rmd
+++ b/functions.Rmd
@@ -59,7 +59,7 @@ x <- df$a
 (x - min(x, na.rm = TRUE)) / (max(x, na.rm = TRUE) - min(x, na.rm = TRUE))
 ```
 
-There is some duplication in this code. We're computing the range of the data three times, but it makes sense to do it in one step:
+There is some duplication in this code. We're computing the range of the data three times, so it makes sense to do it in one step:
 
 ```{r}
 rng <- range(x, na.rm = TRUE)