# TIC II · S21
coches <- read.csv("93cars_DATOS.csv", fileEncoding = "UTF-8-BOM")
precio <- coches$Mid.Price
min(precio, na.rm = TRUE)
median(precio, na.rm = TRUE)
max(precio, na.rm = TRUE)