source('chap_4_prob_2_data.R')

x_bar = mean(DF$Fraction_Nonconfiguring)

#postscript("../../WriteUp/Graphics/Chapter4/chap_4_prob_2_plot.eps", onefile=FALSE, horizontal=FALSE)

plot( DF$Fraction_Nonconfiguring, pch=19, col='black', ylab='fraction nonconfiguring' )
abline(h=x_bar, col='black')
grid()

#dev.off()