正規分布の画像を出力する

スライドとかで色々使う割に、Powerpoint/Keynoteにオブジェクトが無い正規分布。手で書くと難しいのでRで描く。

png(file="Normal.png", width=400, height=200)
plot(dnorm, -4, 4, ann=F, axes=F)
n  <- 100
xs <- seq(-4, 4, length=n)
ys <- dnorm(xs)

polygon(c(xs,rev(xs)), c(rep(0,n),rev(ys)), col="gray")
dev.off()