{"blog_title":"ryamada\u306e\u907a\u4f1d\u5b66\u30fb\u907a\u4f1d\u7d71\u8a08\u5b66\u30e1\u30e2","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fryamada22.hatenablog.jp%2Fentry%2F20131108%2F1383888491\" title=\"\u30e1\u30e2 - ryamada\u306e\u907a\u4f1d\u5b66\u30fb\u907a\u4f1d\u7d71\u8a08\u5b66\u30e1\u30e2\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","type":"rich","author_url":"https://blog.hatena.ne.jp/ryamada22/","description":"\u4e0a\u306e\u8a18\u4e8b\u3067F\u5206\u5e03\u306b\u3064\u3044\u3066\u30e1\u30e2\u3057\u305f \u5c11\u3057ANOVA\u3092\u3002\u3053\u3061\u3089\u3082\u53c2\u8003 n.iter <- 1000 ret <- rep(0,n.iter) n.g <- 2 n.s <- 200 for(i in 1:n.iter){ X <- rnorm(n.s) P <- sample(1:n.g,n.s,replace=TRUE) s1 <- which(P==1) s2 <- which(P==2) ret[i] <- t.test(X[s1],X[s2])$p.value } plot(sort(ret)) ret <- ret.2 <- rep(0,n.iter) n.g <- 2 n.s <- 2\u2026","published":"2013-11-08 14:28:11","title":"\u30e1\u30e2","height":"190","categories":["F\u5206\u5e03","ANOVA","t\u691c\u5b9a"],"url":"https://ryamada22.hatenablog.jp/entry/20131108/1383888491","author_name":"ryamada22","image_url":null,"version":"1.0","width":"100%","provider_name":"Hatena Blog","blog_url":"https://ryamada22.hatenablog.jp/","provider_url":"https://hatena.blog"}