R code for used car prices vs ages

x<-c(6,5,4,3,2,2,1,1);

y<-c(6,9,8,10,11,12,11,13);

mylm<-lm(y~x);

summary(mylm);

plot(x,y,xlab="Age",ylab="Price",font.lab=2,pch=18);

abline(mylm);