#postscript("../../WriteUp/Graphics/Chapter2/chap_2_sect_2_prob_12_plot.eps", onefile=FALSE, horizontal=FALSE)

x = seq( -sqrt(exp(1)), sqrt(exp(1)), length.out=100 )
y = 2 / (1 - 2*log(abs(x)))
plot( x, y, type='l', xlab='theta', ylab='r(theta)' )
grid()

#dev.off()