使用するパッケージ（パッケージのインストール）
library("MASS")
データはRのirisを使用
head(iris)
列Speciesがsetosatである行を全て抜き出す
iris_setosa <- iris[iris$Species=="setosa",]
head(iris_setosa)
ヒストグラムの幅の調整（0.1, 0.2, 0.3, 0.4）
par(mfrow = c(2, 2))
truehist(iris_setosa$Sepal.Length, h=0.1, prob=F)
truehist(iris_setosa$Sepal.Length, h=0.2, prob=F)
truehist(iris_setosa$Sepal.Length, h=0.3, prob=F)
truehist(iris_setosa$Sepal.Length, h=0.4, prob=F)
par(mfrow = c(1, 1))
コメント欄 『間違い』や『分かりにくい部分』などのご意見もお寄せください