Cumulative standard deviation: Difference between revisions
m
→{{header|R}}
(→{{header|R}}: 5 solutions, all wrong or hilariously slow: repeating the sum for each subvector leads to a O(n^2) algo) |
m (→{{header|R}}) |
||
Line 3,577:
n <- seq_along(x)
sqrt(cumsum(x^2) / n - (cumsum(x) / n)^2)
}
set.seed(12345L)
| |||