# 
# Written by:
# -- 
# John L. Weatherwax                2009-04-21
# 
# email: wax@alum.mit.edu
# 
# Please send comments and especially bug reports to the
# above email address.
# 
#-----

x = seq( from=0, to=5, length.out=100 )

pH1 = 0.5 * exp( -abs(x) )
pH0 = exp( - 0.5 * x^2 )/sqrt(2 * pi)

#postscript("../../WriteUp/Graphics/Chapter2/prob_2.2.2.eps", onefile=FALSE, horizontal=FALSE)
plot( x, pH0, col="black", type="l" )
lines( x, pH1, col="red" )
#dev.off()