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

DF = load_appendix_steel_production_data()

m = lm( PROD ~ WID + DENS + STR, data=DF )

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

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