# S21 / B1. Estadística descriptiva reproducible
coches <- read.csv("93cars_DATOS.csv", check.names=TRUE, fileEncoding="UTF-8-BOM")
stopifnot(nrow(coches)==93, "Mid.Price" %in% names(coches))
precio <- coches$Mid.Price
consumo <- coches$MPG.City
cat("Nº de coches:", nrow(coches), "\n")
cat("Precio medio:", mean(precio, na.rm=TRUE), "\n")
cat("Mediana:", median(precio, na.rm=TRUE), "\n")
cat("Desviación típica:", sd(precio, na.rm=TRUE), "\n")
print(summary(precio))
print(summary(consumo))
hist(precio, main="Distribución del precio", xlab="Precio (miles de dólares)", col="lightblue")
boxplot(precio, main="Precio: diagrama de caja", ylab="Miles de dólares")
# RETO: describe la diferencia entre media y mediana.