add sheet 6 (d39cdb4) - SS2012-StatisticalMethods.git

2/solution.r

@@ -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))


...	...	@@ -126,7 +126,7 @@ yy = rnorm(10000,0,1)
126	126	x=seq(0,10, by = 0.1)
127	127	l = dlnorm(x,0,1)
128	128	xx=exp(yy)
129		-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))
	129	+hist(xx,breaks=100,freq=FALSE,main='Log-Normal Sample',xlab='x',ylab='Prob. Density',xlim=c(0,10),ylim=c(0,0.7))
130	130	lines(x,l,type='l',col='blue')
131	131
132	132	legend('topright',legend=c('exp(Random Sample)','Log-Normal Dist.'),col=c('black','blue'),lty=c(1,1))
133	133