# TIC II · S24
coches <- read.csv("93cars_DATOS.csv", fileEncoding = "UTF-8-BOM")
precio <- coches$Mid.Price
median(precio, na.rm = TRUE)
sd(precio, na.rm = TRUE)
hist(precio, main = "Distribución del precio", xlab = "Miles de dólares")
boxplot(precio, main = "Precio", ylab = "Miles de dólares")