# 正規分布

# パラメータ
mu <- 5
sigma <- 10

# 確率密度関数のグラフ
xmin <- mu - sigma * 5
xmax <- mu + sigma * 5
title <- sprintf("N(%g,%g)", mu, sigma ^ 2)
curve(dnorm(x, mu, sigma), from = xmin, to = xmax, xlab = "x", ylab = "f",
      main = title)