正規分布の乱数を作って、確率密度(面積)の合計が１になるのを
確認したいのですが、↓だと何故か２になってしまいます。
どこがダメなんだしょう？

x = rnorm(500)
hist(x, prob=T)
sum(hist(x, prob=T)$density)