{"title":"R\u3067\u4e8c\u9805\u5206\u5e03\u3068\u30d1\u30fc\u30bb\u30f3\u30c8\u70b9\u306e\u5782\u7dda\u3092\u63cf\u753b\u3059\u308b","blog_url":"https://potisan-programming-memo.hatenablog.jp/","published":"2019-10-15 20:46:03","blog_title":"potisan\u306e\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u30e1\u30e2","type":"rich","version":"1.0","image_url":"https://cdn-ak.f.st-hatena.com/images/fotolife/b/by-unknown/20191015/20191015204238.png","provider_name":"Hatena Blog","url":"https://potisan-programming-memo.hatenablog.jp/entry/2019/10/15/204603","author_url":"https://blog.hatena.ne.jp/potisan/","description":"\u3068\u3057\u3066\u3001\u4e8c\u9805\u5206\u5e03\u306e\u66f2\u7dda\u306895%\u70b9\u306e\u5782\u7dda\u3092\u63cf\u753b\u3057\u307e\u3059\u3002 x <- dbinom(0:1000, 1000, 0.5) plot(x, type=\"l\", xlim=c(400, 600), yaxs=\"i\", xlab=\"X\", ylab=\"Prob.\") x1 <- qbinom(1-0.05, 1000, 0.5) #1-0.05 = 0.95 = 95% segments(x1, 0, x1, x[x1])","categories":["R"],"author_name":"potisan","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fpotisan-programming-memo.hatenablog.jp%2Fentry%2F2019%2F10%2F15%2F204603\" title=\"R\u3067\u4e8c\u9805\u5206\u5e03\u3068\u30d1\u30fc\u30bb\u30f3\u30c8\u70b9\u306e\u5782\u7dda\u3092\u63cf\u753b\u3059\u308b - potisan\u306e\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\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>","height":"190","width":"100%","provider_url":"https://hatena.blog"}