# Density of various normal distributions
x <- (-6000:6000)/1000
plot(x, xlim=c(-6,6), ylim=c(0,0.8), type="n",
	xlab="x", ylab="dens(X=x)",
	main="Various normal distributions with mean 0")
points(x, dnorm(x, sd=0.5), type="l")
text(0, 0.8, labels="Variance 1/4", pos=4)
points(x, dnorm(x, sd=1), type="l")
text(0, 0.4, labels="Variance 1", pos=4)
points(x, dnorm(x, sd=2), type="l")
text(0, 0.2, labels="Variance 4", pos=4)