例子:
<br />
n=500<br />
<br />
sample=rnorm(n,1,1)<br />
<br />
x.min=min(sample)-var(sample)<br />
x.max=max(sample)+var(sample)<br />
<br />
x=seq(min(sample),max(sample),length.out=1000)<br />
density=dnorm(seq(x.min,x.max,length.out=1000),mean(sample),var(sample))<br />
<br />
y.max=max(density*n)<br />
<br />
hist(sample,xlim=c(x.min,x.max),ylim=c(0,y.max))<br />
<br />
lines((density*n)~x)<br />