# 2005 年 06 月 15 日作成
# To draw density of normal as varying mean
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,-2,1),xlim=c(-7,7),ylim=c(0,0.9),xlab="",ylab="",type="l")
par(new=T)
plot(x,dnorm(x,2,1),xlim=c(-7,7),ylim=c(0,0.9),xlab="",ylab="",type="l")