From 7bb8acf72a4ae375a3b0a279e33c48461e16f881 Mon Sep 17 00:00:00 2001
From: hadley <h.wickham@gmail.com>
Date: Sun, 24 Jul 2016 09:07:48 -0500
Subject: [PATCH] Correct parens

Fixes #144
---
 iteration.Rmd | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/iteration.Rmd b/iteration.Rmd
index 1ff0b11..ce6e28a 100644
--- a/iteration.Rmd
+++ b/iteration.Rmd
@@ -137,7 +137,7 @@ That's all there is to the for loop! Now is a good time to practice creating som
     for (i in seq_along(x)) {
       sd <- sd + (x[i] - mean(x)) ^ 2
     }
-    sd <- sqrt(sd) / (length(x) - 1)
+    sd <- sqrt(sd / (length(x) - 1))
     
     x <- runif(100)
     out <- vector("numeric", length(x))