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

library(DAAG)

extracted_df = orings[c(1,2,4,11,13,18),]

#postscript("../../WriteUp/Graphics/Chapter1/prob_2_plot_extracted.eps", onefile=FALSE, horizontal=FALSE)
plot( Total ~ Temperature, data=extracted_df, main="Extracted data" )
#dev.off()

#postscript("../../WriteUp/Graphics/Chapter1/prob_2_plot_all.eps", onefile=FALSE, horizontal=FALSE)
plot( Total ~ Temperature, data=orings, main="All data" )
#dev.off()