{"id":571,"date":"2018-06-20T19:35:01","date_gmt":"2018-06-20T10:35:01","guid":{"rendered":"https:\/\/best-biostatistics.com\/toukei-er\/entry\/sample-size-determination-comparing-2-roc-curves-01\/"},"modified":"2025-02-20T23:38:32","modified_gmt":"2025-02-20T14:38:32","slug":"sample-size-determination-comparing-2-roc-curves-01","status":"publish","type":"post","link":"https:\/\/best-biostatistics.com\/toukei-er\/entry\/sample-size-determination-comparing-2-roc-curves-01\/","title":{"rendered":"R \u3067 ROC \u66f2\u7dda\u306e\u6bd4\u8f03\u306b\u5fc5\u8981\u306a\u30b5\u30f3\u30d7\u30eb\u6570\u3092\u507d\u967d\u6027\u7387\u30fb\u967d\u6027\u7387\u30fbAUC \u3092\u7528\u3044\u3066\u8a08\u7b97\u3059\u308b\u65b9\u6cd5"},"content":{"rendered":"\n<p>ROC \u66f2\u7dda\u306e\u6bd4\u8f03\u306b\u5fc5\u8981\u306a\u30b5\u30f3\u30d7\u30eb\u6570 \u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u3092\u8a08\u7b97\u3059\u308b\u65b9\u6cd5<\/p>\n\n\n\n<!--more-->\n\n\n\n<h2 class=\"wp-block-heading\" id=\"ROC-\u66f2\u7dda\u306e\u6bd4\u8f03\u306b\u5fc5\u8981\u306a\u30b5\u30f3\u30d7\u30eb\u6570-\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u3092\u8a08\u7b97\u3059\u308b\u305f\u3081\u306b\u5fc5\u8981\u306a\u6570\u5024\">ROC \u66f2\u7dda\u306e\u6bd4\u8f03\u306b\u5fc5\u8981\u306a\u30b5\u30f3\u30d7\u30eb\u6570\u3092\u8a08\u7b97\u3059\u308b\u305f\u3081\u306b\u5fc5\u8981\u306a\u6570\u5024<\/h2>\n\n\n\n<p>ROC \u66f2\u7dda\u3092\u6bd4\u8f03\u3057\u305f\u3044\u691c\u67fb\u5024\u3092\u3001\u691c\u67fb\u5024 1\u3001\u691c\u67fb\u5024 2 \u3068\u3059\u308b\u3002<\/p>\n\n\n\n<p>\u307e\u305a\u3001\u5148\u884c\u7814\u7a76\u304b\u3089\u3001\u4ee5\u4e0b\u306e\u6570\u5024\u3092\u8aad\u307f\u53d6\u308b\u3002<\/p>\n\n\n\n<ol class=\"wp-block-list\">\n<li>False positive rate\uff08FPR\uff09\uff081-specificity\uff09\u507d\u967d\u6027\u7387<\/li>\n\n\n\n<li>True positive rate\uff08TPR\uff09\uff08Sensitivity\uff09\u967d\u6027\u7387<\/li>\n\n\n\n<li>AUC\uff08Area Under the Curve\uff09<\/li>\n\n\n\n<li>\u75be\u60a3\u3042\u308a\u30fb\u306a\u3057\u5225\u306e\u691c\u67fb\u5024\u5225\u306e\u6a19\u6e96\u504f\u5dee\uff08\u53ef\u80fd\u3067\u3042\u308c\u3070\uff09<\/li>\n\n\n\n<li>\u75be\u60a3\u3042\u308a\u30fb\u306a\u3057\u5225\u306e\u691c\u67fb\u5024 1 \u3068 2 \u306e\u76f8\u95a2\u4fc2\u6570\uff08\u53ef\u80fd\u3067\u3042\u308c\u3070\uff09<\/li>\n<\/ol>\n\n\n\n<p>\u6a19\u6e96\u504f\u5dee\u3068\u76f8\u95a2\u4fc2\u6570\u306f\u898b\u3064\u3051\u308b\u306e\u304c\u96e3\u3057\u3044\u3002<\/p>\n\n\n\n<p>\u6a19\u6e96\u504f\u5dee\u306f\u691c\u67fb\u5024 1 \u30012 \u3068\u3082\u306b\u540c\u3058\u3068\u60f3\u5b9a\u3057\u3066\u6bd4\u30921\u3068\u3059\u308b\u3002<\/p>\n\n\n\n<p>\u76f8\u95a2\u4fc2\u6570\u306f\u3044\u304f\u3064\u304b\u8a66\u3057\u3066\u307f\u308b\u3002<\/p>\n\n\n\n<p>\u305f\u3068\u3048\u30700.2\u30010.4\u30010.6\u30010.8\u3001\u3068\u304b\u30010.1\u30010.3\u30010.7\u3001\u3068\u304b\u3067\u3042\u308b\u3002<\/p>\n\n\n\n<h2 class=\"wp-block-heading\" id=\"ROC-\u66f2\u7dda\u306e\u6bd4\u8f03\u306b\u5fc5\u8981\u306a\u30b5\u30f3\u30d7\u30eb\u6570-\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u8a08\u7b97\u306e\u4f8b\">ROC \u66f2\u7dda\u306e\u6bd4\u8f03\u306b\u5fc5\u8981\u306a\u30b5\u30f3\u30d7\u30eb\u6570\u8a08\u7b97\u306e\u4f8b<\/h2>\n\n\n\n<p>\u307e\u305a R \u306b pROC\u30d1\u30c3\u30b1\u30fc\u30b8\u3092\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u3057\u3066\u4f7f\u3048\u308b\u3088\u3046\u306b\u3059\u308b\u3002<\/p>\n\n\n\n<p>\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u306f\u6700\u521d\u306e\u4e00\u56de\u3060\u3051\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code><span class=\"synIdentifier\">install.packages<\/span><span class=\"synSpecial\">(<\/span><span class=\"synConstant\">\"pROC\"<\/span><span class=\"synSpecial\">)<\/span>\n<\/code><\/pre>\n\n\n\n<p>library()\u3067\u547c\u3073\u51fa\u3059\u306e\u306f\u6bce\u56de\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code><span class=\"synPreProc\">library<\/span><span class=\"synSpecial\">(<\/span>pROC<span class=\"synSpecial\">)<\/span>\n<\/code><\/pre>\n\n\n\n<p>\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u8a08\u7b97\u306b\u5fc5\u8981\u306a\u6570\u5024\u3068\u3057\u3066\u3001\u4ee5\u4e0b\u306e\u6570\u5024\u3092\u60f3\u5b9a\u3059\u308b\u3002<\/p>\n\n\n\n<p>\u691c\u67fb\u5024 1 \uff1a<\/p>\n\n\n\n<ul class=\"wp-block-list\">\n<li>FPR\uff1d0.05<\/li>\n\n\n\n<li>TPR\uff1d0.83<\/li>\n\n\n\n<li>AUC\uff1d0.970<\/li>\n<\/ul>\n\n\n\n<p>\u691c\u67fb\u5024 2 \uff1a<\/p>\n\n\n\n<ul class=\"wp-block-list\">\n<li>FPR\uff1d0.05<\/li>\n\n\n\n<li>TPR\uff1d0.67<\/li>\n\n\n\n<li>AUC\uff1d0.919<\/li>\n<\/ul>\n\n\n\n<p>\u691c\u67fb\u5024 1 \u3068 2 \u306e\u6a19\u6e96\u504f\u5dee\u306e\u6bd4\u3092 1 \u3068\u3059\u308b\u3002<\/p>\n\n\n\n<p>\u75be\u60a3\u3042\u308a\u30fb\u306a\u3057\u3068\u3082\u306b\u691c\u67fb\u5024 1 \u3068 2 \u306e\u76f8\u95a2\u4fc2\u6570\u30920.6\u3068\u4eee\u5b9a\u3059\u308b\u3002<\/p>\n\n\n\n<p>\u6709\u610f\u6c34\u6e96 5\uff05\u3001\u691c\u51fa\u529b 80\uff05\u3001\u75be\u60a3\u306a\u3057\u3068\u3042\u308a\u306e\u6bd4\u304c 4 \u3068\u3059\u308b\u3002<\/p>\n\n\n\n<p>\u3053\u306e\u6642\u306e R \u30b9\u30af\u30ea\u30d7\u30c8\u306f\u3001\u4ee5\u4e0b\u306e\u901a\u308a\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>FPR.1 <span class=\"synStatement\">&lt;-<\/span> <span class=\"synConstant\">0.05<\/span>\nTPR.1 <span class=\"synStatement\">&lt;-<\/span> <span class=\"synConstant\">0.83<\/span>\nAUC.1 <span class=\"synStatement\">&lt;-<\/span> <span class=\"synConstant\">0.970<\/span>\nFPR.2 <span class=\"synStatement\">&lt;-<\/span> <span class=\"synConstant\">0.05<\/span>\nTPR.2 <span class=\"synStatement\">&lt;-<\/span> <span class=\"synConstant\">0.67<\/span>\nAUC.2 <span class=\"synStatement\">&lt;-<\/span> <span class=\"synConstant\">0.919<\/span>\nB.1 <span class=\"synStatement\">&lt;-<\/span> <span class=\"synConstant\">1.0<\/span>\nB.2 <span class=\"synStatement\">&lt;-<\/span> <span class=\"synConstant\">1.0<\/span>\nr.D <span class=\"synStatement\">&lt;-<\/span> <span class=\"synConstant\">0.60<\/span>\nr.N <span class=\"synStatement\">&lt;-<\/span> <span class=\"synConstant\">0.60<\/span>\nA.1 <span class=\"synStatement\">&lt;-<\/span> B.1 <span class=\"synStatement\">*<\/span> <span class=\"synIdentifier\">qnorm<\/span><span class=\"synSpecial\">(<\/span><span class=\"synConstant\">1.0<\/span><span class=\"synStatement\">-<\/span>FPR.1<span class=\"synSpecial\">)<\/span> <span class=\"synStatement\">-<\/span> <span class=\"synIdentifier\">qnorm<\/span><span class=\"synSpecial\">(<\/span><span class=\"synConstant\">1.0<\/span><span class=\"synStatement\">-<\/span>TPR.1<span class=\"synSpecial\">)<\/span>\nA.2 <span class=\"synStatement\">&lt;-<\/span> B.2 <span class=\"synStatement\">*<\/span> <span class=\"synIdentifier\">qnorm<\/span><span class=\"synSpecial\">(<\/span><span class=\"synConstant\">1.0<\/span><span class=\"synStatement\">-<\/span>FPR.2<span class=\"synSpecial\">)<\/span> <span class=\"synStatement\">-<\/span> <span class=\"synIdentifier\">qnorm<\/span><span class=\"synSpecial\">(<\/span><span class=\"synConstant\">1.0<\/span><span class=\"synStatement\">-<\/span>TPR.2<span class=\"synSpecial\">)<\/span>\nparameters <span class=\"synStatement\">&lt;-<\/span> <span class=\"synType\">list<\/span><span class=\"synSpecial\">(<\/span>A1<span class=\"synStatement\">=<\/span>A.1<span class=\"synSpecial\">,<\/span> B1<span class=\"synStatement\">=<\/span>B.1<span class=\"synSpecial\">,<\/span> A2<span class=\"synStatement\">=<\/span>A.2<span class=\"synSpecial\">,<\/span> B2<span class=\"synStatement\">=<\/span>B.2<span class=\"synSpecial\">,<\/span> rn<span class=\"synStatement\">=<\/span>r.N<span class=\"synSpecial\">,<\/span> ra<span class=\"synStatement\">=<\/span>r.D<span class=\"synSpecial\">,<\/span> delta<span class=\"synStatement\">=<\/span>AUC.1<span class=\"synStatement\">-<\/span>AUC.2<span class=\"synSpecial\">)<\/span>\n<span class=\"synComment\"># Significant level = 0.05<\/span>\n<span class=\"synComment\"># Power = 0.80<\/span>\n<span class=\"synComment\"># Normal to Disease = 4<\/span>\n<span class=\"synIdentifier\">power.roc.test<\/span><span class=\"synSpecial\">(<\/span>parameters<span class=\"synSpecial\">,<\/span> power<span class=\"synStatement\">=<\/span><span class=\"synConstant\">0.80<\/span><span class=\"synSpecial\">,<\/span> kappa<span class=\"synStatement\">=<\/span><span class=\"synConstant\">4<\/span><span class=\"synSpecial\">)<\/span>\n<\/code><\/pre>\n\n\n\n<p>\u8a08\u7b97\u7d50\u679c\u306f\u3053\u3061\u3089\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>> power.roc.test(parameters, power=0.80, kappa=4)\n\n     Two ROC curves power calculation \n\n         ncases = 78.80902\n      ncontrols = 315.2361\n      sig.level = 0.05\n          power = 0.8<\/code><\/pre>\n\n\n\n<p>\u5fc5\u8981\u306a\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u306f\u3001\u75be\u60a3\u3042\u308a\u304c79\u4f8b\u3001\u75be\u60a3\u306a\u3057\u304c316\u4f8b\u3001\u5408\u8a08395\u4f8b\u3068\u8a08\u7b97\u3055\u308c\u308b\u3002<\/p>\n\n\n\n<div id=\"biost-1682305152\" class=\"biost- biost-entity-placement\"><p style=\"text-align: center;\"><span style=\"font-size: 20px;\"><strong><a href=\"https:\/\/best-biostatistics.com\/kmhl\">\uff1e\uff1e\u3082\u3046\u7d71\u8a08\u3067\u60a9\u3080\u306e\u306f\u7d42\u308f\u308a\u306b\u3057\u307e\u305b\u3093\u304b\uff1f\u00a0<\/a><\/strong><\/span><\/p>\r\n<a href=\"https:\/\/best-biostatistics.com\/kmhl\"><img class=\"aligncenter wp-image-2794 size-full\" src=\"https:\/\/best-biostatistics.com\/wp\/wp-content\/uploads\/2023\/11\/bn_r_03.png\" alt=\"\" width=\"500\" height=\"327\" \/><\/a>\r\n<p style=\"text-align: center;\"><span style=\"color: #ff0000; font-size: 20px;\"><strong><span class=\"marker2\">\u21911\u4e07\u4eba\u4ee5\u4e0a\u306e\u533b\u7642\u5f93\u4e8b\u8005\u304c\u8cfc\u8aad\u4e2d<\/span><\/strong><\/span><\/p><\/div><h2 class=\"wp-block-heading\" id=\"\u307e\u3068\u3081\">\u307e\u3068\u3081<\/h2>\n\n\n\n<p>ROC \u66f2\u7dda\u306e\u6bd4\u8f03\u306b\u5fc5\u8981\u306a\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u8a08\u7b97\u306e\u65b9\u6cd5\u3092\u7d39\u4ecb\u3057\u305f\u3002<\/p>\n\n\n\n<h2 class=\"wp-block-heading\" id=\"\u53c2\u8003\u6587\u732e\">\u53c2\u8003\u6587\u732e<\/h2>\n\n\n\n<p><a style=\"color: #1155cc;\" href=\"http:\/\/onlinelibrary.wiley.com\/doi\/10.1002\/(SICI)1097-0258(19970715)16:13%3C1529::AID-SIM565%3E3.0.CO;2-H\/abstract\" target=\"_blank\" rel=\"noopener\" data-darkreader-inline-color=\"\">Obuchowski NA et al. Stat Med 1997;16(13):1529-1542. <\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<p>ROC \u66f2\u7dda\u306e\u6bd4\u8f03\u306b\u5fc5\u8981\u306a\u30b5\u30f3\u30d7\u30eb\u6570 \u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u3092\u8a08\u7b97\u3059\u308b\u65b9\u6cd5<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"swell_btn_cv_data":"","_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[5,10,16],"tags":[],"class_list":["post-571","post","type-post","status-publish","format-standard","hentry","category-r","category-roc","category-16"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/posts\/571","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/comments?post=571"}],"version-history":[{"count":3,"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/posts\/571\/revisions"}],"predecessor-version":[{"id":3532,"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/posts\/571\/revisions\/3532"}],"wp:attachment":[{"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/media?parent=571"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/categories?post=571"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/tags?post=571"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}