{"published":"2011-09-27 16:10:33","categories":["R","\u6570\u5b66\u3044\u3089\u305a\u306e\u533b\u79d1\u7d71\u8a08\u5b66","\u7d71\u8a08","\u533b\u5b66"],"image_url":null,"blog_url":"https://mikuhatsune.hatenadiary.com/","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmikuhatsune.hatenadiary.com%2Fentry%2F20110927%2F1317021033\" title=\"\u30dd\u30a2\u30bd\u30f3\u5b9a\u6570\u306e\u4fe1\u983c\u533a\u9593 - \u9a5a\u7570\u306e\u30a2\u30cb\u30f2\u30bf\u793e\u4f1a\u5fa9\u5e30\u306e\u4e88\u5099\" 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","blog_title":"\u9a5a\u7570\u306e\u30a2\u30cb\u30f2\u30bf\u793e\u4f1a\u5fa9\u5e30\u306e\u4e88\u5099","description":"\u3053\u3061\u3089\u304b\u3089\u3002 poisson.conf <- function(x, conf=0.95){ N2 <- length(x)*2 df <- 2*sum(x)+2 alpha2 <- (1-conf)/2 return(qchisq(c(alpha2, 1-alpha2), df)/N2) } n<- 100 poisCI<- matrix(0,n+1,2) dimnames(poisCI)<- list(0:n,c(\"lower\",\"upper\")) for(i in 0:n){ poisCI[i+1,]<- poisson.conf(i) }","author_name":"MikuHatsune","url":"https://mikuhatsune.hatenadiary.com/entry/20110927/1317021033","provider_url":"https://hatena.blog","title":"\u30dd\u30a2\u30bd\u30f3\u5b9a\u6570\u306e\u4fe1\u983c\u533a\u9593","version":"1.0","type":"rich","width":"100%","provider_name":"Hatena Blog","author_url":"https://blog.hatena.ne.jp/MikuHatsune/"}