# TIC II · S20
coches <- read.csv("93cars_DATOS.csv", fileEncoding = "UTF-8-BOM")
View(coches)
subset(coches, Make == "Acura" & Model == "Integra", select = c(Make, Model, MPG.City))
# Duplica la consulta y cambia Integra por Legend.