source('../../Data/data_loaders.R')

DF = load_appendix_cement_data()

m = lm( Y ~ X1 + X2 + X3 + X4, data=DF )

# Needed to produced added variable plots:
#
if( !require("car") ){ install.packages("car") }

#postscript("../../WriteUp/Graphics/Chapter4/ex_4_12_avplot.eps", onefile=FALSE, horizontal=FALSE)
avPlots(m)
#dev.off()