{"provider_name":"Hatena Blog","height":"190","width":"100%","type":"rich","image_url":null,"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fr-statistics-fan.hatenablog.com%2Fentry%2F2014%2F07%2F09%2F022142\" title=\"7\u3092\u6570\u3048\u308b\u3002\u691c\u8a3c - r-statistics-fan\u306e\u65e5\u8a18\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","url":"https://r-statistics-fan.hatenablog.com/entry/2014/07/09/022142","author_url":"https://blog.hatena.ne.jp/r-statistics-fan/","version":"1.0","published":"2014-07-09 02:21:42","provider_url":"https://hatena.blog","author_name":"r-statistics-fan","blog_url":"https://r-statistics-fan.hatenablog.com/","description":"CodeIQ 7 \u3092\u6570\u3048\u308b\u306e\u89e3\u7b54\u4f8b - \u88cf RjpWiki \u5408\u3063\u3066\u3044\u308b\u304b\u81ea\u4fe1\u304c\u306a\u3044\u306e\u3067\u3001\u88cf RjpWiki\u3055\u3093\u306e\u30b3\u30fc\u30c9\u3068\u81ea\u5206\u306e\u30b3\u30fc\u30c9\u3092 \u6bd4\u8f03\u3057\u3066\u691c\u8a3c\u3057\u3066\u307f\u308b\u3002 simn <- 100000res <- matrix(0, nrow = simn, ncol = 2)for (i in 1:simn){ res[i,1] <- func2(i) res[i,2] <- as.integer(f5(7, as.character(i)))} sum(res[,1] == res[,2]) > sum(res[,1] == res[,2])[1] 100000 \u3046\u3080\uff17\u3092\u6570\u3048\u308b\u5834\u5408\u306f\u5c11\u306a\u304f\u3068\u30821000\u2026","title":"7\u3092\u6570\u3048\u308b\u3002\u691c\u8a3c","categories":["R"],"blog_title":"r-statistics-fan\u306e\u65e5\u8a18"}