Example for Homework 1

This is an example that I worked out.

##Honda CRV prices in US

x<-seq(2015,1997, by =-1);

y<-c(27872, 25048, 23228, 21939, 18406, 16876, 15411, 13954, 12883, 10415, 9447, 8069, 7433, 6548, 5405, 5012, 4524, 4222, 3997);

png(filename="hondaCRVUS.png");

plot(x,y,type="b",col="blue",lwd=2,xlab="Year",ylab="Price", pch=20, main="Honda CRV price in US market (in Feb 2015)");

text(x,y,labels=y,pos=2);

dev.off();