# 2005 年 06 月 15 日作成
# To draw density of normal as varying sd
x<-seq(-7,7,by=0.001)
plot(x,dnorm(x,0,1),xlim=c(-7,7),ylim=c(0,0.9),xlab="",ylab="",type="l")
par(new=T)
plot(x,dnorm(x,0,3),xlim=c(-7,7),ylim=c(0,0.9),xlab="",ylab="",type="l")
par(new=T)
plot(x,dnorm(x,0,0.5),xlim=c(-7,7),ylim=c(0,0.9),xlab="",ylab="",type="l")