{"id":3424,"date":"2024-03-27T17:48:37","date_gmt":"2024-03-27T08:48:37","guid":{"rendered":"https:\/\/plaza.umin.ac.jp\/~OIO\/?p=3424"},"modified":"2024-03-27T17:48:37","modified_gmt":"2024-03-27T08:48:37","slug":"r%e3%81%a7%e4%ba%8c%e9%a0%85%e5%88%86%e5%b8%83%e3%82%92%e3%81%be%e3%81%a8%e3%82%81%e3%81%a6%e8%a8%88%e7%ae%97","status":"publish","type":"post","link":"https:\/\/plaza.umin.ac.jp\/~OIO\/?p=3424","title":{"rendered":"R\u3067\u4e8c\u9805\u5206\u5e03\u3092\u307e\u3068\u3081\u3066\u8a08\u7b97"},"content":{"rendered":"

\u4e8c\u9805\u5206\u5e03\u3092\u307e\u3068\u3081\u3066\u8a08\u7b97<\/h1>\n

\u306f\u3058\u3081\u306b<\/h2>\n

\u8907\u6570\u306e\u983b\u5ea6\u306895%\u4fe1\u983c\u533a\u9593\u3092\u8a08\u7b97\u3057\u305f\u3044\u3002\u666e\u6bb5\u3001\u983b\u5ea6\u3068\u305d\u306e95%\u4fe1\u983c\u533a\u9593\u306fbinom.test(a, b)\u3092\u7528\u3044\u3066\u8a08\u7b97\u3057\u3066\u3044\u307e\u3059\u3002\u3053\u308c\u306b\u3001\u30c7\u30fc\u30bf\u30d5\u30ec\u30fc\u30e0\u306e\u30c7\u30fc\u30bf\u3092\u6d41\u3057\u8fbc\u3093\u3067\u4e00\u6c17\u306b\u3001\u983b\u5ea6 estimate\u3068\u4fe1\u983c\u533a\u9593\u306e\u4e0a\u9650upper\u3068\u4e0b\u9650lower\u306e\u5024\u3092\u30d9\u30af\u30c8\u30eb\u3068\u3057\u3066\u5f97\u305f\u3044\u3002<\/p>\n

\u30b5\u30f3\u30d7\u30eb\u30b3\u30fc\u30c9<\/h2>\n
bunsi <- c(1, 2, 3, 4)\r\nbunbo <- c(10, 15, 16, 20)\r\ndf <- data.frame(bunsi, bunbo)\r\n\r\nresult <- mapply( binom.test, df$bunsi, df$bunbo ) \r\nestimates <- unlist(result[5,]) # estimate, \u983b\u5ea6\r\nconf_int <- matrix ( unlist(result[4,]) , byrow=F, nrow=2 ) # conf.int\r\nlower <- conf_int[1,]\r\nupper <- conf_int[2,]<\/pre>\n
\u89e3\u8aac<\/h2>\n
\u3053\u306eR\u30b9\u30af\u30ea\u30d7\u30c8\u306f\u30014\u3064\u306e\u7570\u306a\u308b\u4e8c\u9805\u5206\u5e03\u306b\u95a2\u3059\u308b\u4e8c\u9805\u691c\u5b9a\u3092\u884c\u3063\u3066\u3044\u307e\u3059\u3002 \u307e\u305a\u3001\u30d9\u30af\u30c8\u30eb`bunsi`\u3068`bunbo`\u304c\u5b9a\u7fa9\u3055\u308c\u3066\u304a\u308a\u3001\u305d\u308c\u305e\u308c\u6210\u529f\u56de\u6570\u3068\u8a66\u884c\u56de\u6570\u3092\u8868\u3057\u3066\u3044\u307e\u3059\u3002<\/span><\/p>\n
\u6b21\u306b\u3001\u3053\u308c\u3089\u306e\u30d9\u30af\u30c8\u30eb\u3092\u4f7f\u7528\u3057\u3066\u30c7\u30fc\u30bf\u30d5\u30ec\u30fc\u30e0`df`\u304c\u4f5c\u6210\u3055\u308c\u307e\u3059\u3002<\/span><\/p>\n
 `mapply`\u95a2\u6570\u306f\u3001`binom.test`\u3092\u7528\u3044\u3066\u3001`df`\u306e\u5404\u884c\u306b\u3064\u3044\u3066\u4e8c\u9805\u691c\u5b9a\u3092\u884c\u3044\u307e\u3059\u3002`binom.test`\u306f\u3001\u4e8c\u9805\u5206\u5e03\u306b\u304a\u3051\u308b\u6210\u529f\u306e\u78ba\u7387\u3092\u63a8\u5b9a\u3057\u3001\u305d\u306e\u78ba\u7387\u304c\u6307\u5b9a\u3057\u305f\u5024\uff08\u30c7\u30d5\u30a9\u30eb\u30c8\u3067\u306f0.5\uff09\u304b\u3089\u6709\u610f\u306b\u7570\u306a\u308b\u304b\u3069\u3046\u304b\u3092\u691c\u5b9a\u3057\u307e\u3059\u3002 <\/span><\/p>\n
\u7d50\u679c\u306e\u30ea\u30b9\u30c8\u304b\u3089\u3001`estimates`\uff08\u63a8\u5b9a\u5024\uff09\u3068`conf_int`\uff08\u4fe1\u983c\u533a\u9593\uff09\u304c\u62bd\u51fa\u3055\u308c\u307e\u3059\u3002`estimates`\u306f\u6210\u529f\u306e\u78ba\u7387\u306e\u63a8\u5b9a\u5024\u3092\u3001`conf_int`\u306f\u305d\u306e95%\u4fe1\u983c\u533a\u9593\u3092\u8868\u3057\u3066\u3044\u307e\u3059\u3002 <\/span><\/p>\n
\u6700\u5f8c\u306b\u3001\u4fe1\u983c\u533a\u9593\u306e\u4e0b\u9650`lower`\u3068\u4e0a\u9650`upper`\u304c\u62bd\u51fa\u3055\u308c\u3066\u3044\u307e\u3059\u3002 \u3057\u305f\u304c\u3063\u3066\u3001\u3053\u306e\u30b9\u30af\u30ea\u30d7\u30c8\u306f4\u3064\u306e\u4e8c\u9805\u5206\u5e03\u306e\u6210\u529f\u78ba\u7387\u3092\u63a8\u5b9a\u3057\u3001\u305d\u306e\u4fe1\u983c\u533a\u9593\u3092\u8a08\u7b97\u3057\u3066\u3044\u307e\u3059\u3002<\/span><\/p>\n","protected":false},"excerpt":{"rendered":"
\u4e8c\u9805\u5206\u5e03\u3092\u307e\u3068\u3081\u3066\u8a08\u7b97 \u306f\u3058\u3081\u306b \u8907\u6570\u306e\u983b\u5ea6\u306895%\u4fe1\u983c\u533a\u9593\u3092\u8a08\u7b97\u3057\u305f\u3044\u3002\u666e\u6bb5\u3001\u983b\u5ea6\u3068\u305d\u306e95%\u4fe1\u983c\u533a\u9593\u306fbinom.test(a, b)\u3092\u7528\u3044\u3066\u8a08\u7b97\u3057\u3066\u3044\u307e\u3059\u3002\u3053\u308c\u306b\u3001\u30c7\u30fc\u30bf\u30d5\u30ec\u30fc\u30e0\u306e\u30c7\u30fc\u30bf\u3092\u6d41\u3057\u8fbc\u3093\u3067\u4e00\u6c17\u306b\u3001\u983b\u5ea6 e…<\/p>\n","protected":false},"author":1,"featured_media":3425,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[5],"tags":[],"class_list":["post-3424","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-miscellaneous"],"jetpack_featured_media_url":"https:\/\/plaza.umin.ac.jp\/~OIO\/wp-content\/uploads\/2024\/03\/generated_00-8.png","jetpack_shortlink":"https:\/\/wp.me\/p9b6zl-Te","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/plaza.umin.ac.jp\/~OIO\/index.php?rest_route=\/wp\/v2\/posts\/3424","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/plaza.umin.ac.jp\/~OIO\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/plaza.umin.ac.jp\/~OIO\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/plaza.umin.ac.jp\/~OIO\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/plaza.umin.ac.jp\/~OIO\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=3424"}],"version-history":[{"count":0,"href":"https:\/\/plaza.umin.ac.jp\/~OIO\/index.php?rest_route=\/wp\/v2\/posts\/3424\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/plaza.umin.ac.jp\/~OIO\/index.php?rest_route=\/wp\/v2\/media\/3425"}],"wp:attachment":[{"href":"https:\/\/plaza.umin.ac.jp\/~OIO\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=3424"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/plaza.umin.ac.jp\/~OIO\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=3424"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/plaza.umin.ac.jp\/~OIO\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=3424"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}