syou6162 https://blog.hatena.ne.jp/syou6162/ yasuhisa's blog https://www.yasuhisay.info/ R 卒研 この前自前にて密度トレイスを書いてみましたが、これを使えば平滑化も簡単に行けるということが分かったので、実際にやってみました。ガウシアンカーネル関数はこの前とほとんど同じで、を計算するための関数を作りました。あとはそれを割ったりしているだけ。簡単にできました。 gauusian <- function(X,h){ gauusian.intern <- function(X,h){ return(paste("1/sqrt(2 * pi) * exp(-1/2 * ((x - ",X,")/h)^2)",sep="")) } eval(parse(text=paste("function(x){… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fwww.yasuhisay.info%2Fentry%2F20080919%2F1221827707" title="オレオレ平滑化をやってみた - yasuhisa&#39;s blog" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> http://chart.apis.google.com/chart?cht=tx&chl=%5Cint%20y%20f_%7BX%2CY%7D%28x%2Cy%29dy Hatena Blog https://hatena.blog 2008-09-19 21:35:07 rich https://www.yasuhisay.info/entry/20080919/1221827707 1.0 100%