{"image_url":null,"provider_name":"Hatena Blog","width":"100%","published":"2010-10-09 23:29:47","categories":["R","\u30b0\u30ea\u30b3"],"title":"\u4e00\u56de\u306e\u30b0\u30ea\u30b3\u306e\u52dd\u7387","provider_url":"https://hatena.blog","height":"190","type":"rich","description":"\u30d0\u30b0\u53d6\u308a\u3057\u3066\u4fee\u6b63\u3057\u3066\u307f\u305f\u3002 N<-10 #\u30b8\u30e3\u30f3\u30b1\u30f3\u3059\u308b\u56de\u6570 library(gtools) #\u3068\u308a\u3042\u3048\u305a\u5168\u901a\u308a\u51fa\u3059 cmb<- combinations(5,N,repeats.allowed=T) num<- nrow(cmb) #A\u21921\u3001B\u21922\u3001C\u21923\u3001D\u21924\u3001E\u21925 \u3068\u5909\u63db ABCDE.count<- matrix(rep(0,5*nrow(cmb)),nc=5) for(i in 1:num){ for(k in 1:N){ if(cmb[i,k]==1){ABCDE.count[i,1]<- ABCDE.count[i,1] + 1} else if(cmb[i,k]==2){AB\u2026","url":"https://mikuhatsune.hatenadiary.com/entry/20101009/1286634587","blog_title":"\u9a5a\u7570\u306e\u30a2\u30cb\u30f2\u30bf\u793e\u4f1a\u5fa9\u5e30\u306e\u4e88\u5099","author_url":"https://blog.hatena.ne.jp/MikuHatsune/","author_name":"MikuHatsune","version":"1.0","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmikuhatsune.hatenadiary.com%2Fentry%2F20101009%2F1286634587\" title=\"\u4e00\u56de\u306e\u30b0\u30ea\u30b3\u306e\u52dd\u7387 - \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>","blog_url":"https://mikuhatsune.hatenadiary.com/"}