※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

x <- rnorm(50)

hist(x, freq=F)
rug(x)
lines(density(x))

#win.graph()

histogram(x, type="density", panel=function(x, ...) {
 panel.histogram(x, ...)
 panel.densityplot(x, ...)
 panel.rug(x, ...)
})

参照

R