source('chap_4_prob_3_data.R')

x_bar = mean(data)

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

plot( data, pch=19, col='black', ylab='total nonconformities' )
abline(h=x_bar, col='black')
grid()

#dev.off()