@@ -126,7 +126,7 @@ yy = rnorm(10000,0,1)

 x=seq(0,10, by = 0.1)

 l = dlnorm(x,0,1)

 xx=exp(yy)

-hist(xx,breaks=100,freq=FALSE,main='Distribution of a Log-Normal Sample',xlab='x',ylab='Prob. Density',xlim=c(0,10),ylim=c(0,0.7))

+hist(xx,breaks=100,freq=FALSE,main='Log-Normal Sample',xlab='x',ylab='Prob. Density',xlim=c(0,10),ylim=c(0,0.7))

 lines(x,l,type='l',col='blue')

 legend('topright',legend=c('exp(Random Sample)','Log-Normal Dist.'),col=c('black','blue'),lty=c(1,1))