#
# Written by:
# -- 
# John L. Weatherwax                2009-04-21
# 
# email: wax@alum.mit.edu
# 
# Please send comments and especially bug reports to the
# above email address.
#
#-----

DF = read.csv("../../Data/chap_1_prob_8.csv")

# Some scatter plots:
#
#postscript("../../WriteUp/Graphics/Chapter1/ex_8_scatter_plot.eps", onefile=FALSE, horizontal=FALSE)
par(mfrow=c(1,2))
plot( DF$Age_0, DF$Age_25, pch=20, cex=1.5, xlab='Age 0', ylab='Age 25' )
grid()
plot( DF$Age_25, DF$Age_50, pch=20, cex=1.5, xlab='Age 25', ylab='Age 50' )
grid()
par(mfrow=c(1,1))
#dev.off()