#library(ISLR)

Auto<-read.table("autodat.csv",
                header=TRUE,sep=";",dec=",")

names(Auto)
dim(Auto)
attach(Auto)
summary(mpg)
hist(mpg)
windows()
plot(cylinders,mpg)
windows()
plot(as.factor(cylinders),mpg)
windows()
plot(weight,mpg)
title("weight mpg")
re<-lm(mpg~weight)
abline(reg=re,col="red")

windows()
plot(displacement,horsepower)
windows()
plot(horsepower,mpg)