commit
8114e51386
|
@ -130,7 +130,7 @@ That's all there is to the for loop! Now is a good time to practice creating som
|
|||
|
||||
x <- sample(100)
|
||||
sd <- 0
|
||||
for (i in seq_along(out)) {
|
||||
for (i in seq_along(x)) {
|
||||
sd <- sd + (x[i] - mean(x)) ^ 2
|
||||
}
|
||||
sd <- sqrt(sd) / (length(x) - 1)
|
||||
|
|
Loading…
Reference in New Issue