La familia apply en R

El reemplazo idiomático de R para los bucles explícitos.

scores <- list(math = c(90, 85), art = c(70, 95, 80))

means <- sapply(scores, mean)
as_list <- lapply(scores, range)
counts <- vapply(scores, length, integer(1))

m <- matrix(1:6, nrow = 2)
row_sums <- apply(m, 1, sum)
col_max <- apply(m, 2, max)

pairs <- mapply(function(a, b) a * b, 1:3, 4:6)

Cómo funciona

1. sapply simplifica los resultados; lapply conserva una lista.
2. vapply fija el tipo de retorno por seguridad.
3. apply trabaja por filas o columnas de una matriz; mapply avanza en paralelo.

Palabras clave y builtins usados aquí

• function

El intento, en números

Líneas

11

Caracteres a escribir

296

Tokens

107

Ritmo de tres estrellas

90 tpm

Al ritmo de tres estrellas de 90 tokens por minuto, este intento toma unos 71 segundos.

Escribe este fragmento

Paso 1 de 5 en Pensamiento vectorizado; paso 10 de 20 en Fundamentos del lenguaje.

← Anterior Siguiente →