source('chap_4_prob_4_data.R')

x_bar = mean(x_bar_data)
R_bar = mean(r_data)

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

par(mfrow=c(2,1))

plot( x_bar_data, pch=19, col='black', ylab='x bars' )
abline(h=x_bar, col='black')
grid()

plot( r_data, pch=19, col='black', ylab='Rs' )
abline(h=R_bar, col='black')
grid()

par(mfrow=c(1,1))

#dev.off()