{"id":522,"date":"2018-08-07T08:11:56","date_gmt":"2018-08-06T23:11:56","guid":{"rendered":"https:\/\/best-biostatistics.com\/toukei-er\/entry\/how-to-determine-sample-size-in-non-inferiority-test-with-mean\/"},"modified":"2025-04-29T17:24:30","modified_gmt":"2025-04-29T08:24:30","slug":"how-to-determine-sample-size-in-non-inferiority-test-with-mean","status":"publish","type":"post","link":"https:\/\/best-biostatistics.com\/toukei-er\/entry\/how-to-determine-sample-size-in-non-inferiority-test-with-mean\/","title":{"rendered":"R \u3068 EZR \u3067\u5e73\u5747\u5024\u306e\u975e\u52a3\u6027\u691c\u5b9a\u306b\u5fc5\u8981\u306a\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u3092\u8a08\u7b97\u3059\u308b\u65b9\u6cd5"},"content":{"rendered":"\n

\u975e\u52a3\u6027\u8a66\u9a13\u306e\u30a8\u30f3\u30c9\u30dd\u30a4\u30f3\u30c8\u304c\u9023\u7d9a\u91cf\u3067\u3001\u5404\u7fa4\u306e\u5e73\u5747\u5024\u3092\u6c42\u3081\u308b\u5834\u5408\u3001\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u306f\u3069\u306e\u3088\u3046\u306b\u8a08\u7b97\u3059\u308b\u304b\uff1f<\/p>\n\n\n\n

R\u3068EZR\u3067\u884c\u3046\u65b9\u6cd5\u3002<\/p>\n\n\n\n\n\n\n\n

\u975e\u52a3\u6027\u8a66\u9a13\u306b\u304a\u3051\u308b\u975e\u52a3\u6027\u691c\u5b9a\u3068\u306f\uff1f<\/h2>\n\n\n\n

\u52a3\u3063\u3066\u3044\u306a\u3044\u3053\u3068\u3092\u7a4d\u6975\u7684\u306b\u8a3c\u660e\u3059\u308b\u691c\u5b9a\u3002<\/p>\n\n\n\n

\u81e8\u5e8a\u7684\u306b\u610f\u5473\u306e\u3042\u308b\u5dee\u3092\u8a2d\u5b9a\u3057\u3066\u3001\u305d\u308c\u3088\u308a\u306f\u4e0b\u56de\u3089\u306a\u3044\u3053\u3068\u3092\u8a3c\u660e\u3059\u308b\u3002<\/p>\n\n\n\n

\u8a73\u3057\u304f\u306f\u3053\u3061\u3089\u3092\u53c2\u7167\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\t\u975e\u52a3\u6027\u30de\u30fc\u30b8\u30f3\u306e\u6c7a\u3081\u65b9\u3068 R \u3067\u975e\u52a3\u6027\u691c\u5b9a\u3092\u5b9f\u884c\u3059\u308b\u65b9\u6cd5<\/a>\n\t\t\t\t\t\t\u3044\u307e\u307e\u3067\u306e\u65b9\u6cd5\u3068\u6bd4\u3079\u3066\u3001\u683c\u6bb5\u306b\u3044\u3044\u3068\u304b\u3001\u969b\u7acb\u3063\u3066\u3044\u3044\u3068\u304b\u3001\u3058\u3083\u306a\u304f\u3066\u3082\u3044\u3044\u5834\u5408\u304c\u3042\u308b\u3002 \u30c0\u30e1\u3058\u3083\u306a\u3051\u308c\u3070\u3044\u3044\u3002 \u52a3\u3063\u3066\u3044\u306a\u3051\u308c\u3070\u3044\u3044\u3002 \u52a3\u3063\u3066\u3044\u306a\u3051\u308c\u3070\u3044\u3044\u3068\u3044…<\/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

\u975e\u52a3\u6027\u8a66\u9a13\u306e\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u8a08\u7b97\u3000\u5e73\u5747\u5024\u306e\u975e\u52a3\u6027\u691c\u5b9a\u30001:1\u306e\u5834\u5408<\/h2>\n\n\n\n

1:1\u3001\u3064\u307e\u308a\u3001\u4e21\u7fa4\u304c\u540c\u3058\u4eba\u6570\u3068\u3059\u308b\u5834\u5408\u306e\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u8a08\u7b97\u304c\u57fa\u672c\u3060\u3002<\/p>\n\n\n\n

1:1\u306e\u6642\u304c\u3082\u3063\u3068\u3082\u691c\u51fa\u529b\u304c\u9ad8\u304f\u306a\u308a\u3001\u4e21\u7fa4\u5408\u8a08\u304c\u540c\u3058\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u306a\u3089\u7d71\u8a08\u5b66\u7684\u6709\u610f\u306b\u306a\u308a\u3084\u3059\u3044\u3002<\/p>\n\n\n\n

Delta\u306f\u3001\u975e\u52a3\u6027\u30de\u30fc\u30b8\u30f3\u3002\u3053\u308c\u4ee5\u4e0a\u52a3\u3063\u305f\u3089\u3001\u52a3\u3063\u3066\u3044\u308b\u3068\u3044\u3046\u9650\u754c\u3002<\/p>\n\n\n\n

Delta1\u306f\u3001\u975e\u52a3\u6027\u304c\u672c\u5f53\u306e\u5834\u5408\u306e\u771f\u5b9f\u306e\u5dee\u3002<\/p>\n\n\n\n

\u975e\u52a3\u6027\u30de\u30fc\u30b8\u30f3\u306e\u8aac\u660e\u306f\u4ee5\u4e0b\u306b\u8a18\u8f09\u3042\u308a\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\t\u975e\u52a3\u6027\u30de\u30fc\u30b8\u30f3\u306e\u6c7a\u3081\u65b9\u3068 R \u3067\u975e\u52a3\u6027\u691c\u5b9a\u3092\u5b9f\u884c\u3059\u308b\u65b9\u6cd5<\/a>\n\t\t\t\t\t\t\u3044\u307e\u307e\u3067\u306e\u65b9\u6cd5\u3068\u6bd4\u3079\u3066\u3001\u683c\u6bb5\u306b\u3044\u3044\u3068\u304b\u3001\u969b\u7acb\u3063\u3066\u3044\u3044\u3068\u304b\u3001\u3058\u3083\u306a\u304f\u3066\u3082\u3044\u3044\u5834\u5408\u304c\u3042\u308b\u3002 \u30c0\u30e1\u3058\u3083\u306a\u3051\u308c\u3070\u3044\u3044\u3002 \u52a3\u3063\u3066\u3044\u306a\u3051\u308c\u3070\u3044\u3044\u3002 \u52a3\u3063\u3066\u3044\u306a\u3051\u308c\u3070\u3044\u3044\u3068\u3044…<\/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
sample.size.non.inferiority.mean <- function(sig.level=.05, power=.8,\n                                             Delta, Delta1, sd, alternative=\"one.sided\"){\n  alternative <- match.arg(alternative)\n  tside <- switch(alternative, one.sided=1, two.sided=2)\n  d <- (Delta + Delta1)\/sd\n  Za <- qnorm(sig.level\/tside, lower.tail=FALSE)\n  Zb <- qnorm(power)\n  n <- 2*((Za+Zb)\/d)^2\n  NOTE <- \"n is number in *each* group\"\n  METHOD <- \"Non Inferiority Test Sample Size Calculation (Mean)\"\n  structure(list(n = n, \"Non-inferiority margin\" = Delta,\n                 \"True difference\"=Delta1, SD = sd, sig.level = sig.level,\n                 power = power, alternative = alternative, note = NOTE,\n                 method = METHOD), class = \"power.htest\")\n}\n<\/code><\/pre>\n\n\n\n
\u975e\u52a3\u6027\u30de\u30fc\u30b8\u30f3\u304c7\u3001\u4e8c\u7fa4\u306e\u5dee\u304c34.5-29.7=4.8\u3001\u6a19\u6e96\u504f\u5dee\u304c30\u3068\u3059\u308b\u3002<\/p>\n\n\n\n
\u691c\u51fa\u529b80%\u3001\u7247\u5074\u691c\u5b9a\u3067\u6709\u610f\u6c34\u6e965%\u306e\u6642\u3001\u5404\u7fa480\u4f8b\u5fc5\u8981\u3068\u8a08\u7b97\u3055\u308c\u308b\u3002<\/p>\n\n\n\n
\u7247\u5074\u691c\u5b9a\u306e\u7406\u7531\u3082\u4ee5\u4e0b\u306e\u8a18\u4e8b\u306b\u8a18\u8f09\u3042\u308a\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\t\u975e\u52a3\u6027\u30de\u30fc\u30b8\u30f3\u306e\u6c7a\u3081\u65b9\u3068 R \u3067\u975e\u52a3\u6027\u691c\u5b9a\u3092\u5b9f\u884c\u3059\u308b\u65b9\u6cd5<\/a>\n\t\t\t\t\t\t\u3044\u307e\u307e\u3067\u306e\u65b9\u6cd5\u3068\u6bd4\u3079\u3066\u3001\u683c\u6bb5\u306b\u3044\u3044\u3068\u304b\u3001\u969b\u7acb\u3063\u3066\u3044\u3044\u3068\u304b\u3001\u3058\u3083\u306a\u304f\u3066\u3082\u3044\u3044\u5834\u5408\u304c\u3042\u308b\u3002 \u30c0\u30e1\u3058\u3083\u306a\u3051\u308c\u3070\u3044\u3044\u3002 \u52a3\u3063\u3066\u3044\u306a\u3051\u308c\u3070\u3044\u3044\u3002 \u52a3\u3063\u3066\u3044\u306a\u3051\u308c\u3070\u3044\u3044\u3068\u3044…<\/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
> sample.size.non.inferiority.mean(Delta=7, Delta1=34.5-29.7, sd=30)\n\n     Non Inferiority Test Sample Size Calculation (Mean) \n\n                     n = 79.92389\nNon-inferiority margin = 7\n       True difference = 4.8\n                    SD = 30\n             sig.level = 0.05\n                 power = 0.8\n           alternative = one.sided\n\nNOTE: n is number in *each* group\n<\/code><\/pre>\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>
\u975e\u52a3\u6027\u8a66\u9a13\u306e\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u3000\u5e73\u5747\u5024\u306e\u975e\u52a3\u6027\u691c\u5b9a\u30001:n \u306e\u5834\u5408<\/h2>\n\n\n\n
1:n\u3068\u3044\u3046\u306e\u306f\u30011:2\u3068\u304b1:3\u3068\u304b\u3001\u3069\u3061\u3089\u304b\u306e\u7fa4\u3092\u591a\u304f\u3059\u308b\u5834\u5408\u3002<\/p>\n\n\n\n
\u96c6\u3081\u308b\u306e\u304c\u96e3\u3057\u3044\u7fa4\u306e\u4eba\u6570\u3092\u6e1b\u3089\u3059\u3068\u304b\u3001\u306a\u308b\u3079\u304f\u65b0\u3057\u3044\u6cbb\u7642\u6cd5\u3092\u591a\u304f\u306e\u60a3\u8005\u3055\u3093\u306b\u5272\u308a\u5f53\u3066\u5f93\u6765\u306e\u6cbb\u7642\u3067\u6bd4\u8f03\u5bfe\u7167\u306b\u3059\u308b\u7fa4\u3092\u5c11\u306a\u304f\u3059\u308b\u3068\u304b\u3001\u4f55\u3089\u304b\u306e\u610f\u56f3\u304c\u3042\u308b\u5834\u5408\u306b\u7528\u3044\u308b\u3002<\/p>\n\n\n\n
Delta\u3068Delta1\u306f\u5148\u307b\u3069\u3068\u540c\u3058\u3002<\/p>\n\n\n\n
ctrl.ratio\u304c 1:n \u306e n \u306e\u90e8\u5206\u3060\u3002<\/p>\n\n\n\n
\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u306e\u6bd4\u3068\u3057\u3066\u3044\u308b\u304c\u3001\u8a66\u9a13\u7fa4\u3067\u3082\u4f7f\u3048\u308b\u3002<\/p>\n\n\n\n
\u30b9\u30af\u30ea\u30d7\u30c8\u3067\u306f\u65b0\u6cbb\u7642\u304c 1:n \u306e1\u306e\u7fa4\u306b\u306a\u3063\u3066\u3044\u308b\u306e\u3067\u3001\u7570\u306a\u308b\u72b6\u6cc1\u306a\u3089\u8aad\u307f\u66ff\u3048\u3066\u307b\u3057\u3044\u3002<\/p>\n\n\n\n
sample.size.non.inferiority.mean <- function(sig.level=.05, power=.8,\n                                             Delta, Delta1, sd, \n                                             alternative=\"one.sided\", \n                                             ctrl.ratio=1){\n  alternative <- match.arg(alternative)\n  tside <- switch(alternative, one.sided=1, two.sided=2)\n  d <- (Delta + Delta1)\/sd\n  Za <- qnorm(sig.level\/tside, lower.tail=FALSE)\n  Zb <- qnorm(power)\n  n <- 2*((Za+Zb)\/d)^2\n  m <- (ctrl.ratio+1)\/(2*ctrl.ratio)*n\n  NOTE <- \"n is number in *new treatment* group\"\n  METHOD <- \"Non Inferiority Test Sample Size Calculation (Mean)\"\n  structure(\n    list(\"n (crude)\" = ceiling(n), \"n (corrected)\" = ceiling(m), \n         \"n (corr. ctrl)\" = ceiling(m * ctrl.ratio), \n         \"Total N (corrected)\" = ceiling(m) + ceiling(m*ctrl.ratio),\n         \"Control ratio\" = ctrl.ratio,\n         \"Non-inferiority margin\" = Delta,\n         \"True difference\"=Delta1, SD = sd, sig.level = sig.level,\n         power = power, alternative = alternative, note = NOTE,\n         method = METHOD),\n    class = \"power.htest\")\n}\n<\/code><\/pre>\n\n\n\n
1:1\u306e\u6642\u3068\u540c\u3058\u6761\u4ef6\u3067\u8a08\u7b97\u3057\u305f\u3082\u306e\u304c\u4ee5\u4e0b\u3002<\/p>\n\n\n\n
\u5168\u90e8\u306e\u7fa4\u3092\u8a08\u7b97\u3055\u305b\u308b\u305f\u3081\u306b\u3001\u5404\u7fa4\u306e\u6570\u5b57\u3092\u6574\u6570\u306b\u5207\u308a\u4e0a\u3052\u308b\u95a2\u6570\u3092\u8ffd\u52a0\u3057\u305f\u3002<\/p>\n\n\n\n
\u5207\u308a\u4e0a\u3052\u3066\u304a\u304b\u306a\u3044\u3068\u3001\u4e00\u4f8b\u8db3\u3089\u306a\u3044\u6570\u5b57\u306b\u8a08\u7b97\u3055\u308c\u308b\u53ef\u80fd\u6027\u304c\u3042\u308b\u3002<\/p>\n\n\n\n
> sample.size.non.inferiority.mean(Delta=7, Delta1=34.5-29.7, sd=30)\n\n     Non Inferiority Test Sample Size Calculation (Mean) \n\n             n (crude) = 80\n         n (corrected) = 80\n        n (corr. ctrl) = 80\n   Total N (corrected) = 160\n         Control ratio = 1\nNon-inferiority margin = 7\n       True difference = 4.8\n                    SD = 30\n             sig.level = 0.05\n                 power = 0.8\n           alternative = one.sided\n\nNOTE: n is number in *new treatment* group<\/code><\/pre>\n\n\n\n
1:2\u3068\u3059\u308b\u5834\u5408\u306e\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u306f\u4ee5\u4e0b\u306e\u901a\u308a\u3002<\/p>\n\n\n\n
1:1\u306e\u3068\u304d\u3088\u308a\u30011:n \u306e1\u306e\u7fa4\u306f\u5c0f\u3055\u304f\u306a\u3063\u3066\u3044\u308b\u3002<\/p>\n\n\n\n
80\u4f8b\u304b\u308960\u4f8b\u306b\u300120\u4f8b\u6e1b\u5c11\u3057\u3066\u3044\u308b\u3002<\/p>\n\n\n\n
1:n \u306e n \u306e\u7fa4\u306f\u30011:2\u306a\u306e\u306760\u306e2\u500d\u306e120\u5fc5\u8981\u306b\u306a\u308b\u3002<\/p>\n\n\n\n
\u5168\u90e8\u3067\u5fc5\u8981\u306a\u4eba\u6570\u306f180\u4f8b\u3068\u306a\u3063\u3066\u30011:1\u306e\u3068\u304d\u3088\u308a20\u4f8b\u4f59\u5206\u306b\u5fc5\u8981\u306b\u306a\u308b\u3002<\/p>\n\n\n\n
> sample.size.non.inferiority.mean(Delta=7, Delta1=34.5-29.7, sd=30, ctrl.ratio=2)\n\n     Non Inferiority Test Sample Size Calculation (Mean) \n\n             n (crude) = 80\n         n (corrected) = 60\n        n (corr. ctrl) = 120\n   Total N (corrected) = 180\n         Control ratio = 2\nNon-inferiority margin = 7\n       True difference = 4.8\n                    SD = 30\n             sig.level = 0.05\n                 power = 0.8\n           alternative = one.sided\n\nNOTE: n is number in *new treatment* group<\/code><\/pre>\n\n\n\n
\u975e\u52a3\u6027\u8a66\u9a13\u306e\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u8a08\u7b97\u3092EZR\u3067\u5b9f\u884c\u3057\u3066\u307f\u308b<\/h2>\n\n\n\n
\u300c\u7d71\u8a08\u89e3\u6790\u300d\u2192\u300c\u5fc5\u8981\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u306e\u8a08\u7b97\u300d\u2192\u300c2\u7fa4\u306e\u5e73\u5747\u306e\u6bd4\u8f03\uff08\u975e\u52a3\u6027\uff09\u306e\u305f\u3081\u306e\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u306e\u8a08\u7b97\u300d\u3092\u9078\u629e\u3059\u308b\u3002<\/p>\n\n\n\n
\"\"
\u300c2\u7fa4\u306e\u5e73\u5747\u306e\u6bd4\u8f03\uff08\u975e\u52a3\u6027\uff09\u306e\u305f\u3081\u306e\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u306e\u8a08\u7b97\u300d\u3092\u9078\u629e<\/figcaption><\/figure>\n\n\n\n
2\u7fa4\u306e\u5dee\u304c4.8\u3001\u975e\u52a3\u6027\u30de\u30fc\u30b8\u30f3\u304c7\u3001\u6a19\u6e96\u504f\u5dee\u304c30\u3001\u691c\u51fa\u529b80\uff05\u3001\u7247\u5074\u691c\u5b9a\u3067\u6709\u610f\u6c34\u6e965\uff05\u306e\u5404\u5024\u3092\u5165\u529b\u3059\u308b\u3002<\/p>\n\n\n\n
\"\"<\/figure>\n\n\n\n
\u5404\u8a2d\u5b9a\u5024\u3092\u5165\u529b\u3059\u308b<\/p>\n\n\n\n
\u5404\u7fa480\u4f8b\u5fc5\u8981\u3068\u8a08\u7b97\u3055\u308c\u308b\u3002<\/p>\n\n\n\n
><\/span> SampleMeanNonInf<\/span>(<\/span>4.8<\/span>,<\/span> 7<\/span>,<\/span> 30<\/span>,<\/span> 0.05<\/span>,<\/span> 0.80<\/span>,<\/span> 1<\/span>)<\/span>\n\u4eee\u5b9a\n2<\/span>\u7fa4\u9593\u306e\u5e73\u5747\u5024\u306e\u5dee       4.8<\/span>\n\u610f\u5473\u306e\u3042\u308b\u5dee              7<\/span>\n\u6a19\u6e96\u504f\u5dee                 30<\/span>\n\u03b1\u30a8\u30e9\u30fc               0.05<\/span>\n\u7247\u5074\u691c\u5b9a\n\u691c\u51fa\u529b                  0.8<\/span>\n\u5fc5\u8981\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba \u8a08\u7b97\u7d50\u679c\nN1                       80<\/span>\nN2                       80<\/span>\n<\/code><\/pre>\n\n\n\n
1:2\u306e\u5834\u5408\u306a\u3069\u30012\u7fa4\u304c\u540c\u6570\u3067\u306a\u3044\u5834\u5408\u306f\u3001\u3055\u3089\u306bR\u30b9\u30af\u30ea\u30d7\u30c8\u306b\u4ee5\u4e0b\u306e\u3088\u3046\u306b\u66f8\u3044\u3066\u5b9f\u884c\u3059\u308b\u3002\u4f8b\u306f1:2\u3067\u3042\u308b\u3002<\/p>\n\n\n\n
n <-<\/span> 80<\/span>\nctrl.ratio <-<\/span> 2<\/span>\nm <-<\/span> (<\/span>ctrl.ratio+<\/span>1<\/span>)<\/span>\/<\/span>(<\/span>2<\/span>*<\/span>ctrl.ratio)<\/span>*<\/span>n\n(<\/span>group1 <-<\/span> m)<\/span>\n(<\/span>group2 <-<\/span> m*<\/span>ctrl.ratio)<\/span>\n<\/code><\/pre>\n\n\n\n
\u7d50\u679c\u306f\u3001\u7fa41\u304c60\u4f8b\u3001\u7fa42\u304c120\u4f8b\u3068\u8a08\u7b97\u3055\u308c\u308b\u3002<\/p>\n\n\n\n
><\/span> (<\/span>group1 <-<\/span> m)<\/span>\n[<\/span>1<\/span>]<\/span> 60<\/span>\n><\/span> (<\/span>group2 <-<\/span> m*<\/span>ctrl.ratio)<\/span>\n[<\/span>1<\/span>]<\/span> 120<\/span>\n<\/code><\/pre>\n\n\n\n
\u975e\u52a3\u6027\u8a66\u9a13\u306e\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u8a08\u7b97\u3092R\u306egsDesign\u30d1\u30c3\u30b1\u30fc\u30b8\u306enNormal()\u95a2\u6570\u3092\u4f7f\u3063\u3066\u884c\u3046\u5834\u5408<\/h2>\n\n\n\n
gsDesign \u30d1\u30c3\u30b1\u30fc\u30b8\u306enNormal()\u95a2\u6570\u3092\u4f7f\u3046\u3068\u3001\u5e73\u5747\u5024\u306e\u975e\u52a3\u6027\u691c\u5b9a\u306e\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u8a08\u7b97\u304c\u3067\u304d\u308b\u3002<\/p>\n\n\n\n
EZR\u3067\u3082\u4e0b\u8a18\u306e\u3068\u304a\u308a\u306b\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\uff06\u547c\u3073\u51fa\u3057\u3066\u3001nNormal()\u95a2\u6570\u3092\u5b9f\u884c\u3059\u308c\u3070\u3001\u8a08\u7b97\u3067\u304d\u308b\u3002<\/p>\n\n\n\n
install.packages<\/span>(<\/span>\"gsDesign\"<\/span>)<\/span> #\u4e00\u56de\u3060\u3051<\/span>\nlibrary<\/span>(<\/span>gsDesign)<\/span> #gsDesign\u30d1\u30c3\u30b1\u30fc\u30b8\u3092\u4f7f\u7528\u6642\u6bce\u56de\u3001\u4e8b\u524d\u306b\u4e00\u56de\u3060\u3051\u5b9f\u884c<\/span>\n<\/code><\/pre>\n\n\n\n
nNormal()\u95a2\u6570\u306b\u6761\u4ef6\u3092\u6307\u5b9a\u3057\u3066\u5b9f\u884c\u3059\u308c\u3070\u8a08\u7b97\u3057\u3066\u304f\u308c\u308b\u3002\u975e\u52a3\u6027\u30de\u30fc\u30b8\u30f3\u306e\u7b26\u53f7\u304c\u3044\u307e\u307e\u3067\u3068\u9006\u3067\u30de\u30a4\u30ca\u30b9\u306b\u306a\u308b\u3053\u3068\u306b\u6ce8\u610f\u3002<\/p>\n\n\n\n
nNormal<\/span>(<\/span>delta1=<\/span>4.8<\/span>,<\/span> delta0=-<\/span>7<\/span>,<\/span> sd=<\/span>30<\/span>,<\/span> alpha=<\/span>0.05<\/span>,<\/span> beta=<\/span>0.2<\/span>)<\/span> #1:1\u306e\u5834\u5408<\/span>\nnNormal<\/span>(<\/span>delta1=<\/span>4.8<\/span>,<\/span> delta0=-<\/span>7<\/span>,<\/span> sd=<\/span>30<\/span>,<\/span> alpha=<\/span>0.05<\/span>,<\/span> beta=<\/span>0.2<\/span>,<\/span> ratio=<\/span>2<\/span>)<\/span> #1:2\u306e\u5834\u5408<\/span>\n<\/code><\/pre>\n\n\n\n
\u7d50\u679c\u306f\u3001\u4ee5\u4e0b\u306e\u3088\u3046\u306b\u30011:1\u306e\u5834\u5408\u306f160\u4f8b\u30011:2\u306e\u5834\u5408\u306f180\u4f8b\u3068\u8a08\u7b97\u3055\u308c\u308b\u3002<\/p>\n\n\n\n
\u8a08\u7b97\u7d50\u679c\u306f2\u7fa4\u5408\u308f\u305b\u305f\u5408\u8a08\u306e\u4f8b\u6570\u3060\u3002<\/p>\n\n\n\n
><\/span> nNormal<\/span>(<\/span>delta1=<\/span>4.8<\/span>,<\/span> delta0=-<\/span>7<\/span>,<\/span> sd=<\/span>30<\/span>,<\/span> alpha=<\/span>0.05<\/span>,<\/span> beta=<\/span>0.2<\/span>)<\/span> #1:1\u306e\u5834\u5408<\/span>\n[<\/span>1<\/span>]<\/span> 159.8478<\/span>\n><\/span> nNormal<\/span>(<\/span>delta1=<\/span>4.8<\/span>,<\/span> delta0=-<\/span>7<\/span>,<\/span> sd=<\/span>30<\/span>,<\/span> alpha=<\/span>0.05<\/span>,<\/span> beta=<\/span>0.2<\/span>,<\/span> ratio=<\/span>2<\/span>)<\/span> #1:2\u306e\u5834\u5408<\/span>\n[<\/span>1<\/span>]<\/span> 179.8288<\/span>\n<\/code><\/pre>\n\n\n\n
\u975e\u52a3\u6027\u8a66\u9a13\u306e\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u3092\u30a8\u30af\u30bb\u30eb\u3067<\/h2>\n\n\n\n
\u3088\u3051\u308c\u3070\u4ee5\u4e0b\u304b\u3089\u3069\u3046\u305e\u3002<\/p>\n\n\n\n
\u5e73\u5747\u5024\u306e\u975e\u52a3\u6027\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\u52d5\u753b\u3002<\/p>\n\n\n\n
\u3053\u3061\u3089\u3082\u3088\u304b\u3063\u305f\u3089\u3069\u3046\u305e\u3002<\/p>\n\n\n\n