Cumulative standard deviation: Difference between revisions
Content added Content deleted
(→{{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: | Line 3,577: | ||
n <- seq_along(x) |
n <- seq_along(x) |
||
sqrt(cumsum(x^2) / n - (cumsum(x) / n)^2) |
sqrt(cumsum(x^2) / n - (cumsum(x) / n)^2) |
||
} |
|||
}</lang> |
|||
set.seed(12345L) |
set.seed(12345L) |
||