csv_summary.R en R
Un script completo: leer un CSV, resumir cada columna, imprimir un reporte.
args <- commandArgs(trailingOnly = TRUE)
if (length(args) != 2) {
stop("usage: Rscript csv_summary.R FILE COLUMN")
}
data <- read.csv(args[1])
column <- args[2]
if (!column %in% names(data)) {
stop(paste("no column named", column))
}
values <- data[[column]]
values <- values[!is.na(values)]
cat("count: ", length(values), "\n")
cat("mean: ", round(mean(values), 3), "\n")
cat("median:", round(median(values), 3), "\n")
cat("sd: ", round(sd(values), 3), "\n")Palabras clave y builtins usados aquí
if
El intento, en números
- Líneas
- 18
- Caracteres a escribir
- 466
- Tokens
- 144
- Ritmo de tres estrellas
- 100 tpm
Al ritmo de tres estrellas de 100 tokens por minuto, este intento toma unos 86 segundos.
Paso 1 de 1 en Bis; paso 20 de 20 en Fundamentos del lenguaje.