#############################################################################################################
#
# Figure1.2 (page 26) – Enveloping a normal density by a Cauchy density.
#
##############################################################################################################
#
# Author : Hedibert Freitas Lopes
#          Graduate School of Business
#          University of Chicago
#          5807 South Woodlawn Avenue
#          Chicago, Illinois, 60637
#          Email : hlopes@ChicagoGSB.edu
#
###############################################################################################################

x  = seq(-6,6,length=1000)
f1 = dnorm(x)
f2 = dt(x/sqrt(2.5),1)/sqrt(2.5)
A  = sqrt(1.25*pi)

par(mfrow=c(1,1))
plot(x,f1,xlab="",ylab="",main="",type="l",axes=F)
axis(1)
axis(2)
lines(x,A*f2,col=1,lty=2)