カーネル法を細かく制御してＲのヒストグラムを滑らかに書く。 Ｒのデフォルトのdensity関数もあるが細かく制御できないので以下の関数を使う。 pdf123<-function(d,p1,d1){ j<-0 for(i in 1:length(p1)){ j[i]<-length(d[abs(d-p1[i])<=d1[i] ]) } data.fra…