# TIC II · B4 · Script con errores intencionados
# Pon 93cars_DATOS.csv en la misma carpeta y establece esa carpeta como directorio de trabajo.
autos <- read.csv("93cars_DATOS.csv")
print(head(auto))
# Busca las columnas reales del CSV antes de corregir las líneas siguientes.
precio_medio <- mean(autos$Precio, na.rm = TRUE)
print(precio_medio)
correlacion <- cor(autos$Precio, autos$Potencia)
print(correlacion)
plot(autos$Potencia, autos$Precio, main = "Precio y potencia")