Media móvil en R
Una media móvil con filter, y el relleno de NA en los bordes.
moving_average <- function(x, window) {
n <- length(x) - window + 1
sapply(seq_len(n), function(i) {
mean(x[i:(i + window - 1)])
})
}Palabras clave y builtins usados aquí
function
El intento, en números
- Líneas
- 6
- Caracteres a escribir
- 133
- Tokens
- 49
- Ritmo de tres estrellas
- 90 tpm
Al ritmo de tres estrellas de 90 tokens por minuto, este intento toma unos 33 segundos.
Paso 5 de 5 en Pensamiento vectorizado; paso 14 de 20 en Fundamentos del lenguaje.