powered by
Dowjones
str(Dowjones) attach(Dowjones) plot(year,close,type="l",lty=2,lwd=2,col="blue") barplot(close,col="blue",las=2,main="Problem 1.35",names.arg=FALSE) detach(Dowjones)
Run the code above in your browser using DataLab