#Lecture 4
#Graphing Demo

x<-1:10
y<-rnorm(10)
z<-c(0.43,-1.19,0.04,-0.84,-1.03,0.95,-2.42,3.34,1.70,0.21)

pdf("lect4Plots.pdf")
 plot(x,y,main="Scatterplot")
 hist(y,main="Frequency Histogram",col="green")
 hist(y,freq=FALSE,main="Density Histogram",col="purple")
 boxplot(z,main="Boxplot",col="grey")
dev.off()