{"id":536,"date":"2018-07-21T21:12:04","date_gmt":"2018-07-21T12:12:04","guid":{"rendered":"https:\/\/best-biostatistics.com\/toukei-er\/entry\/how-to-determine-sample-size-in-paired-t-test\/"},"modified":"2024-10-21T13:30:53","modified_gmt":"2024-10-21T04:30:53","slug":"how-to-determine-sample-size-in-paired-t-test","status":"publish","type":"post","link":"https:\/\/best-biostatistics.com\/toukei-er\/entry\/how-to-determine-sample-size-in-paired-t-test\/","title":{"rendered":"R \u3067\u5bfe\u5fdc\u306e\u3042\u308b t \u691c\u5b9a\u306b\u5fc5\u8981\u306a\u30b5\u30f3\u30d7\u30eb\u6570\u3092\u8a08\u7b97\u3059\u308b\u65b9\u6cd5"},"content":{"rendered":"\n

\u5bfe\u5fdc\u306e\u3042\u308b t \u691c\u5b9a\u306f\u3001\u524d\u5f8c\u6bd4\u8f03\u3092\u3059\u308b\u30c7\u30b6\u30a4\u30f3\u306e\u6642\u306b\u7528\u3044\u308b\u3002<\/p>\n\n\n\n

\u5bfe\u5fdc\u306e\u3042\u308b t \u691c\u5b9a\u306e\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u3001\u30b5\u30f3\u30d7\u30eb\u6570\u306f\u3069\u306e\u304f\u3089\u3044\u3067\u3042\u308c\u3070\u3088\u3044\u304b\uff1f<\/p>\n\n\n\n\n\n\n\n

\u5bfe\u5fdc\u306e\u3042\u308b t \u691c\u5b9a\u306e\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u8a08\u7b97\u306b\u5fc5\u8981\u306a\u6570\u5024<\/h2>\n\n\n\n

\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u8a08\u7b97\u306b\u5fc5\u8981\u306a\u306e\u306f\u3001<\/p>\n\n\n\n

    \n
  1. \u691c\u51fa\u529b<\/li>\n\n\n\n
  2. \u6a19\u6e96\u5316\u3055\u308c\u305f\u524d\u5f8c\u5dee<\/li>\n<\/ol>\n\n\n\n

    \u306e\uff12\u3064\u3060\u3002<\/p>\n\n\n\n

    \u6a19\u6e96\u5316\u3055\u308c\u305f\u524d\u5f8c\u5dee\u306f\u3001\u5dee\u306e\u6a19\u6e96\u504f\u5dee\u304c\u5fc5\u8981\u3067\u3001\u5dee\u306e\u6a19\u6e96\u504f\u5dee\u3092\u8868\u793a\u3057\u3066\u3044\u308b\u5148\u884c\u7814\u7a76\u306f\u5c11\u306a\u3044\u3002<\/p>\n\n\n\n

    \u6c7a\u3081\u6253\u3061\u3067\u3001\u3042\u308b\u7a0b\u5ea6\u6c7a\u3081\u3066\u3057\u307e\u3046\u3057\u304b\u306a\u3044\u3002<\/p>\n\n\n\n

    \u4e0b\u8a18\u306e\u4e8c\u7fa4\u306et\u691c\u5b9a\u3067\u3082\u7d39\u4ecb\u3057\u305f\u76ee\u5b89\u3092\u7528\u3044\u308b\u3068\u3001\u4e2d\u304f\u3089\u3044\u306e\u5dee\u3092\u691c\u51fa\u3059\u308b\u306b\u306f\u3001\u6a19\u6e96\u5316\u3055\u308c\u305f\u5dee\u30920.4\u304b\u30890.5\u304f\u3089\u3044\u306b\u8a2d\u5b9a\u3059\u308c\u3070\u3088\u3044\u3002<\/p>\n\n\n

    \t\t\t
    \n\t\t\t\t
    \n\t\t\t\t\t\u3042\u308f\u305b\u3066\u8aad\u307f\u305f\u3044<\/span>\n\t\t\t\t\t
    \"\"<\/figure><\/div>\t\t\t\t\t
    \n\t\t\t\t\t\tR \u3067 t \u691c\u5b9a\u306b\u5fc5\u8981\u306a\u30b5\u30f3\u30d7\u30eb\u6570\u3092\u8a08\u7b97\u3059\u308b\u65b9\u6cd5<\/a>\n\t\t\t\t\t\tt \u691c\u5b9a\u306e\u30b5\u30f3\u30d7\u30eb\u6570\u8a08\u7b97\u306e\u65b9\u6cd5 t \u691c\u5b9a\u306e\u30b5\u30f3\u30d7\u30eb\u6570\u8a08\u7b97\uff081:1\u306e\u5834\u5408\uff09 R \u306e power.t.test()\u3092\u7528\u3044\u308b\u3002 \u5fc5\u8981\u306a\u60c5\u5831\u306f\u3001\u691c\u51fa\u529b\u3092\u3069\u3046\u3059\u308b\u304b\u3068\u3001\u4e8c\u7fa4\u306e\u5e73\u5747\u5024\u306e\u5dee\u3002 \u6a19\u6e96\u504f…<\/span>\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t<\/div>\n\t\t<\/div>\n\n\n\n\n\n\n

    \u5bfe\u5fdc\u306e\u3042\u308b t \u691c\u5b9a\u306e\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u306e\u76ee\u5b89<\/h2>\n\n\n\n

    \u8a08\u7b97\u306f\u4ee5\u4e0b\u3067\u78ba\u8a8d\u3059\u308b\u3068\u3057\u3066\u3001\u76ee\u5b89\u3092\u4ee5\u4e0b\u306b\u307e\u3068\u3081\u305f\u3002<\/p>\n\n\n\n

    \u52b9\u679c\u91cf\u3068\u306f\u3001\u3053\u3053\u3067\u306f\u6a19\u6e96\u5316\u3055\u308c\u305f\u524d\u5f8c\u5dee\u3092\u6307\u3057\u3066\u3044\u308b\u3002<\/p>\n\n\n\n

    \u52b9\u679c\u91cf<\/th>\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba<\/th><\/tr><\/thead>
    \u5c0f\u3055\u306a\u5dee 0.2<\/td>199<\/td><\/tr>
    \u4e2d\u304f\u3089\u3044\u306a\u5dee 0.5<\/td>34<\/td><\/tr>
    \u5927\u304d\u306a\u5dee 0.9<\/td>12<\/td><\/tr><\/tbody><\/table><\/figure>\n\n\n\n

    \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>\r\n

    \u21911\u4e07\u4eba\u4ee5\u4e0a\u306e\u533b\u7642\u5f93\u4e8b\u8005\u304c\u8cfc\u8aad\u4e2d<\/span><\/strong><\/span><\/p><\/div>

    \u5bfe\u5fdc\u306e\u3042\u308b t \u691c\u5b9a\u306e\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u8a08\u7b97\u3092 R \u3067\u884c\u3046<\/h2>\n\n\n\n

    R\u3067\u8a08\u7b97\u3059\u308b\u5834\u5408\u3001power.t.test()\u3092\u4f7f\u3048\u3070\u3088\u3044\u3002<\/p>\n\n\n\n

    \u691c\u51fa\u529b\u309280%\u3068\u3057\u3066\u3001\u6a19\u6e96\u5316\u3055\u308c\u305f\u5dee\u30920.5\u3068\u3057\u3066\u3001\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u8a08\u7b97\u3092\u3059\u308b\u3002<\/p>\n\n\n\n

    type=”paired”\u304c\u5bfe\u5fdc\u306e\u3042\u308b\u691c\u5b9a\u3067\u3042\u308b\u3053\u3068\u3092\u6307\u5b9a\u3057\u3066\u3044\u308b\u3002<\/p>\n\n\n\n

    power.t.test<\/span>(<\/span>power=<\/span>0.8<\/span>,<\/span> delta=<\/span>0.5<\/span>,<\/span> type=<\/span>\"paired\"<\/span>)<\/span>\n<\/code><\/pre>\n\n\n\n
    \u7d50\u679c\u306f\u300134\u4f8b\u5fc5\u8981\u3068\u8a08\u7b97\u3055\u308c\u305f\u3002<\/p>\n\n\n\n
    ><\/span> power.t.test<\/span>(<\/span>power=<\/span>0.8<\/span>,<\/span> delta=<\/span>0.5<\/span>,<\/span> type=<\/span>\"paired\"<\/span>)<\/span>\nPaired t test power calculation\nn =<\/span> 33.3672<\/span>\ndelta =<\/span> 0.5<\/span>\nsd =<\/span> 1<\/span>\nsig.level =<\/span> 0.05<\/span>\npower =<\/span> 0.8<\/span>\nalternative =<\/span> two.sided\nNOTE:<\/span> n is number of *<\/span>pairs*<\/span>,<\/span> sd is std.dev. of *<\/span>differences*<\/span> within pairs\n<\/code><\/pre>\n\n\n\n
    \u5927\u304d\u306a\u5dee\u304c\u898b\u8fbc\u307e\u308c\u308b\u306e\u3067\u3042\u308c\u3070\u3001delta=0.9\u3092\u4f7f\u3063\u3066\u8a08\u7b97\u3059\u308b\u3002<\/p>\n\n\n\n
    power.t.test<\/span>(<\/span>power=<\/span>0.8<\/span>,<\/span> delta=<\/span>0.9<\/span>,<\/span> type=<\/span>\"paired\"<\/span>)<\/span>\n<\/code><\/pre>\n\n\n\n
    \u7d50\u679c\u306f\u300112\u4f8b\u3067\u6e08\u3080\u3002<\/p>\n\n\n\n
    \u9a5a\u304f\u307b\u3069\u5c11\u306a\u3044\u75c7\u4f8b\u3067\u8a66\u9a13\u304c\u3067\u304d\u3066\u3057\u307e\u3046\u3002<\/p>\n\n\n\n
    ><\/span> power.t.test<\/span>(<\/span>power=<\/span>0.8<\/span>,<\/span> delta=<\/span>0.9<\/span>,<\/span> type=<\/span>\"paired\"<\/span>)<\/span>\nPaired t test power calculation\nn =<\/span> 11.75386<\/span>\ndelta =<\/span> 0.9<\/span>\nsd =<\/span> 1<\/span>\nsig.level =<\/span> 0.05<\/span>\npower =<\/span> 0.8<\/span>\nalternative =<\/span> two.sided\nNOTE:<\/span> n is number of *<\/span>pairs*<\/span>,<\/span> sd is std.dev. of *<\/span>differences*<\/span> within pairs\n<\/code><\/pre>\n\n\n\n
    \u5e0c\u5c11\u75be\u60a3\u306e\u8a66\u9a13\u3092\u8a08\u753b\u3059\u308b\u5834\u5408\u306f\u3001\u75c7\u4f8b\u6570\u304c\u5c11\u306a\u304f\u3066\u6e08\u3080\u306e\u306f\u52a9\u304b\u308b\u3002<\/p>\n\n\n\n
    \u753b\u671f\u7684\u306a\u6cbb\u7642\u6cd5\u3067\u3042\u308b\u3053\u3068\u304c\u6761\u4ef6\u3060\u3002<\/p>\n\n\n\n
    \u5bfe\u5fdc\u306e\u3042\u308b t \u691c\u5b9a\u306e\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u8a08\u7b97\u306b power.t.test() \u3092\u4f7f\u308f\u306a\u3044\u65b9\u6cd5<\/h2>\n\n\n\n
    \u5bfe\u5fdc\u306e\u3042\u308b t \u691c\u5b9a\u306e\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u8a08\u7b97\u306e\u305f\u3081\u306b power.t.test() \u3092\u4f7f\u308f\u305a\u306b\u3001\u30b9\u30af\u30ea\u30d7\u30c8\u3092\u66f8\u3044\u3066\u307f\u308b\u3068\u4ee5\u4e0b\u306e\u3088\u3046\u306b\u306a\u308b\u3002<\/p>\n\n\n\n
    paired.t.test.samplesize <-<\/span> function<\/span>(<\/span>sig.level=<\/span>0.05<\/span>,<\/span> power=<\/span>0.8<\/span>,<\/span>\ndelta,<\/span> sd=<\/span>1<\/span>,<\/span> alternative=<\/span>c<\/span>(<\/span>\"two.sided\"<\/span>,<\/span>\"one.sided\"<\/span>))<\/span>\n{<\/span>\nalternative <-<\/span> match.arg<\/span>(<\/span>alternative)<\/span>\ntside <-<\/span> switch<\/span>(<\/span>alternative,<\/span> one.sided=<\/span>1<\/span>,<\/span> two.sided=<\/span>2<\/span>)<\/span>\nZa <-<\/span> qnorm<\/span>(<\/span>sig.level\/<\/span>tside,<\/span> lower.tail=<\/span>FALSE<\/span>)<\/span>\nZb <-<\/span> qnorm<\/span>(<\/span>power)<\/span>\nn <-<\/span> 2<\/span>*<\/span>((<\/span>Za+<\/span>Zb)<\/span>\/<\/span>(<\/span>delta\/<\/span>sd*<\/span>sqrt<\/span>(<\/span>2<\/span>)))<\/span>^<\/span>2<\/span>\nNOTE<\/span> <-<\/span> \"n is number of *pairs*, sd is std.dev. of *differences* within pairs\"<\/span>\nMETHOD <-<\/span> \"Paired t-test sample size\"<\/span>\nstructure<\/span>(<\/span>list<\/span>(<\/span>n=<\/span>n,<\/span>delta=<\/span>delta,<\/span> sd=<\/span>sd,<\/span>\nsig.level=<\/span>sig.level,<\/span> power=<\/span>power,<\/span>\nalternative=<\/span>alternative,<\/span> note=<\/span>NOTE<\/span>,<\/span> method=<\/span>METHOD),<\/span>\nclass=<\/span>\"power.htest\"<\/span>)<\/span>\n}<\/span>\n<\/code><\/pre>\n\n\n\n
    delta=0.5\u306e\u4e2d\u7a0b\u5ea6\u306e\u5dee\u306e\u5834\u5408\u306f\u300132\u4f8b\u3068\u8a08\u7b97\u3055\u308c\u308b\u3002power.t.test()\u306e\u7d50\u679c\u306b\u6bd4\u3079\u308b\u3068\u30012\u4f8b\u5c11\u306a\u3044\u3002<\/p>\n\n\n\n
    ><\/span> paired.t.test.samplesize<\/span>(<\/span>delta=<\/span>0.5<\/span>)<\/span>\nPaired t-<\/span>test sample size\nn =<\/span> 31.39552<\/span>\ndelta =<\/span> 0.5<\/span>\nsd =<\/span> 1<\/span>\nsig.level =<\/span> 0.05<\/span>\npower =<\/span> 0.8<\/span>\nalternative =<\/span> two.sided\nNOTE:<\/span> n is number of *<\/span>pairs*<\/span>,<\/span> sd is std.dev. of *<\/span>differences*<\/span> within pairs\n<\/code><\/pre>\n\n\n\n
    delta=0.9\u306e\u5927\u304d\u306a\u5dee\u306e\u5834\u5408\u306f\u300110\u4f8b\u5fc5\u8981\u3068\u8a08\u7b97\u3055\u308c\u308b\u3002power.t.test()\u306e\u7d50\u679c\u3088\u308a2\u4f8b\u5c11\u306a\u3044\u3002<\/p>\n\n\n\n
    ><\/span> paired.t.test.samplesize<\/span>(<\/span>delta=<\/span>0.9<\/span>)<\/span>\nPaired t-<\/span>test sample size\nn =<\/span> 9.689975<\/span>\ndelta =<\/span> 0.9<\/span>\nsd =<\/span> 1<\/span>\nsig.level =<\/span> 0.05<\/span>\npower =<\/span> 0.8<\/span>\nalternative =<\/span> two.sided\nNOTE:<\/span> n is number of *<\/span>pairs*<\/span>,<\/span> sd is std.dev. of *<\/span>differences*<\/span> within pairs\n<\/code><\/pre>\n\n\n\n
    \u5bfe\u5fdc\u306e\u3042\u308b t \u691c\u5b9a\u306e\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u8a08\u7b97\u3092\u30a8\u30af\u30bb\u30eb\u3067\u884c\u3046<\/h2>\n\n\n\n
    \u4e0a\u8a18\u306e\u65b9\u6cd5\u3067\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u8a08\u7b97\u3092\u30a8\u30af\u30bb\u30eb\u306e\u30b9\u30d7\u30ec\u30c3\u30c9\u30b7\u30fc\u30c8\u3067\u3067\u304d\u308b\u3088\u3046\u306b\u3057\u305f\u3002<\/p>\n\n\n\n
    \u6b63\u78ba\u306a\u8a08\u7b97\u3088\u308a2\u4f8b\u7a0b\u5ea6\u5c11\u306a\u304f\u8a08\u7b97\u3055\u308c\u308b\u3053\u3068\u306f\u5fd8\u308c\u305a\u306b\u3002<\/p>\n\n\n\n
    \u3088\u3051\u308c\u3070\u3069\u3046\u305e\u3002<\/p>\n\n\n\n
    \u5bfe\u5fdc\u306e\u3042\u308bt\u691c\u5b9a \u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u8a08\u7b97\u3010\u30a8\u30af\u30bb\u30eb\u3067\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u3011 | TKER SHOP<\/a><\/p>\n\n\n\n
    \u4f7f\u3044\u65b9\u3092\u52d5\u753b\u3067\u89e3\u8aac\u3057\u305f\u3002<\/p>\n\n\n\n
    \u3088\u3051\u308c\u3070\u3069\u3046\u305e\u3002<\/p>\n\n\n\n