ryamada22 https://blog.hatena.ne.jp/ryamada22/ ryamadaの遺伝学・遺伝統計学メモ https://ryamada22.hatenablog.jp/ James-Stein 推定 ベイズ こちらから my.JS.estimate <- function(x){ m <- mean(x) A1 <- (length(x)-2)/sum((x-m)^2) y <- (1-A1)*(x-m) +m return(y) } n.iter <- 1000 N <- 1000 A <-pi R.As <- R.Bs <- rep(0,n.iter) for(i in 1:n.iter){ # 変なデータとして、正規分布と指数分布の合わさったものをつくってみる N <- 100 N2 <- 50 A <- 4 A2 <- 6 mu <- rnorm(N,3,sqrt(A)) mu2 <- r… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fryamada22.hatenablog.jp%2Fentry%2F20130827%2F1377371200" title="マルチプルテスティング：James-Stein推定 - ryamadaの遺伝学・遺伝統計学メモ" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> https://cdn-ak.f.st-hatena.com/images/fotolife/r/ryamada22/20130825/20130825044806.jpg Hatena Blog https://hatena.blog 2013-08-27 04:06:40 rich https://ryamada22.hatenablog.jp/entry/20130827/1377371200 1.0 100%