# 
# 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.
# 
#-----

save_plots = F

# EPage 94
#
DF = read.csv( "../../Data/HOT.csv", header=TRUE, stringsAsFactors=FALSE )
if( save_plots ){ postscript("../../WriteUp/Graphics/Chapter5/dup_fig_5_1.eps", onefile=FALSE, horizontal=FALSE) }
pairs( DF[,1:4] )
if( save_plots ){ dev.off() }

DF$LogAltitude = log(DF$Altitude)
pairs( DF[,c(1:3,6) ] )