# S23 / B3. Cuatro errores intencionados: guarda una COPIA antes de corregir.
coches <- read.csv("93cars_DATOS.csv", check.names=TRUE, fileEncoding="UTF-8-BOM")
stopifnot(nrow(coches)==93, "Mid.Price" %in% names(coches))
precios <- coches$Mid_Price
media <- mean(precios, na.rm=TRUE
print(medias)
hist("precios")