# TIC II · S26
coches <- read.csv("93cars_DATOS.csv", fileEncoding = "UTF-8-BOM")
plot(coches$Horsepower, coches$Mid.Price, xlab = "Potencia (HP)", ylab = "Precio (miles de dólares)", main = "Potencia y precio")