Medias de columna con apply en R
Medias de columna con apply, la familia que reemplaza casi todos los bucles en R base.
column_means <- function(df) {
numeric_cols <- sapply(df, is.numeric)
sapply(df[, numeric_cols, drop = FALSE], mean, na.rm = TRUE)
}Palabras clave y builtins usados aquí
function
El intento, en números
- Líneas
- 4
- Caracteres a escribir
- 132
- Tokens
- 34
- Ritmo de tres estrellas
- 90 tpm
Al ritmo de tres estrellas de 90 tokens por minuto, este intento toma unos 23 segundos.
Paso 2 de 5 en Pensamiento vectorizado; paso 11 de 20 en Fundamentos del lenguaje.