R code for autompg data

tmp<-read.table("autompg.Data", header=TRUE);

y<-tmp[,1];

n<-nrow(tmp); p<-8;

x<-matrix(0,nrow(tmp),(p-1));

for(i in 1:(p-1)) { x[,i]<-tmp[,(i+1)];}

mylm<-lm(y ~ x);

summary(mylm);