{"id":456,"date":"2019-01-04T12:50:39","date_gmt":"2019-01-04T03:50:39","guid":{"rendered":"https:\/\/best-biostatistics.com\/toukei-er\/entry\/meta-analysis-of-correlation-coefficients-in-r\/"},"modified":"2024-10-12T17:20:15","modified_gmt":"2024-10-12T08:20:15","slug":"meta-analysis-of-correlation-coefficients-in-r","status":"publish","type":"post","link":"https:\/\/best-biostatistics.com\/toukei-er\/entry\/meta-analysis-of-correlation-coefficients-in-r\/","title":{"rendered":"R \u3067\u76f8\u95a2\u4fc2\u6570\u306e\u30e1\u30bf\u30a2\u30ca\u30ea\u30b7\u30b9\u3092\u884c\u3046\u65b9\u6cd5"},"content":{"rendered":"\n

\u76f8\u95a2\u4fc2\u6570\u3092\u7d71\u5408\u3057\u305f\u3044\u5834\u5408\u306f\u3069\u3046\u3084\u308b\u304b\uff1f<\/p>\n\n\n\n

R \u3067\u306e\u65b9\u6cd5\u3002<\/p>\n\n\n\n\n\n\n\n

\u500b\u3005\u306e\u7814\u7a76\u306e\u76f8\u95a2\u4fc2\u6570\u306895%\u4fe1\u983c\u533a\u9593\u306e\u6e96\u5099<\/h2>\n\n\n\n

\u4f7f\u3046\u30c7\u30fc\u30bf\u306f\u4ee5\u4e0b\u306e\u901a\u308a\u3002<\/p>\n\n\n\n

r \u304c\u76f8\u95a2\u4fc2\u6570\u3002<\/p>\n\n\n\n

n \u304c\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u3002<\/p>\n\n\n\n

r <-<\/span> c<\/span>(<\/span>0.307<\/span>,<\/span>-<\/span>0.01<\/span>,<\/span>0.300<\/span>,<\/span>0.119<\/span>,<\/span>0.194<\/span>,<\/span>0.248<\/span>)<\/span>\nn <-<\/span> c<\/span>(<\/span>107<\/span>,<\/span>1524<\/span>,<\/span>154<\/span>,<\/span>6165<\/span>,<\/span>4138<\/span>,<\/span>1559<\/span>)<\/span>\n<\/code><\/pre>\n\n\n\n
z \u304cFisher\u306e\u5206\u6563\u5b89\u5b9a\u5316\u5909\u63db\u5f8c\u306e\u76f8\u95a2\u4fc2\u6570\u3002<\/p>\n\n\n\n
Hyperbolic arc-tangent \u95a2\u6570 atanh() \u3092\u4f7f\u3046\u3068\u7c21\u5358\u306b\u5909\u63db\u3067\u304d\u308b\u3002<\/p>\n\n\n\n
z \u306b\u5909\u63db\u3057\u305f\u5f8c\u306e\u6a19\u6e96\u8aa4\u5dee\u306f $ \\sqrt{\\frac{1}{n – 3}} $ \u306b\u306a\u308b\u3002<\/p>\n\n\n\n
zl, zu \u306f z \u306e95%\u4fe1\u983c\u533a\u9593\u4e0b\u9650\u3068\u4e0a\u9650\u3002<\/p>\n\n\n\n
rl, ru \u306f zl, zu\u3092\u9006\u5909\u63db\u3057\u305f\uff08\u5143\u306e\u4e16\u754c\u306b\u623b\u3057\u305f\uff09\u5024\u3002<\/p>\n\n\n\n
z <-<\/span> atanh<\/span>(<\/span>r)<\/span>\nse <-<\/span> sqrt<\/span>(<\/span>1<\/span>\/<\/span>(<\/span>n-<\/span>3<\/span>))<\/span>\nZa <-<\/span> qnorm<\/span>(<\/span>1<\/span>-<\/span>0.05<\/span>\/<\/span>2<\/span>)<\/span>\nzl <-<\/span> z-<\/span>Za*<\/span>se\nzu <-<\/span> z+<\/span>Za*<\/span>se\nrl <-<\/span> (<\/span>exp<\/span>(<\/span>2<\/span>*<\/span>zl)<\/span>-<\/span>1<\/span>)<\/span>\/<\/span>(<\/span>exp<\/span>(<\/span>2<\/span>*<\/span>zl)<\/span>+<\/span>1<\/span>)<\/span>\nru <-<\/span> (<\/span>exp<\/span>(<\/span>2<\/span>*<\/span>zu)<\/span>-<\/span>1<\/span>)<\/span>\/<\/span>(<\/span>exp<\/span>(<\/span>2<\/span>*<\/span>zu)<\/span>+<\/span>1<\/span>)<\/span>\n<\/code><\/pre>\n\n\n\n
Fisher\u306e\u5206\u6563\u5b89\u5b9a\u5316\u5909\u63db\u306e\u9006\u5909\u63db\u306ftanh()<\/h2>\n\n\n\n
Hyperbolic arc-tangent\u306e\u9006\u306f\u3001hyperbolic tangent\u3002<\/p>\n\n\n\n
\u306a\u306e\u3067\u3001rl, ru \u306e\u8a08\u7b97\u5f0f\u306ftanh()\u3067\u7f6e\u304d\u63db\u3048\u3089\u308c\u308b\u3002<\/p>\n\n\n\n
\u4ee5\u964d\u306ftanh()\u3092\u4f7f\u3046\u3002<\/p>\n\n\n\n
\u4ee5\u4e0b\u306e\u3088\u3046\u306b\u3001\u30b7\u30f3\u30d7\u30eb\u306a\u30b9\u30af\u30ea\u30d7\u30c8\u3067\u66f8\u3051\u308b\u3002<\/p>\n\n\n\n
><\/span> (<\/span>exp<\/span>(<\/span>2<\/span>*<\/span>zl)<\/span>-<\/span>1<\/span>)<\/span>\/<\/span>(<\/span>exp<\/span>(<\/span>2<\/span>*<\/span>zl)<\/span>+<\/span>1<\/span>)<\/span>\n[<\/span>1<\/span>]<\/span>  0.12439197<\/span> -<\/span>0.06018300<\/span>  0.14890459<\/span>  0.09431717<\/span>  0.16450217<\/span>  0.20082642<\/span>\n><\/span>  tanh<\/span>(<\/span>zl)<\/span>\n[<\/span>1<\/span>]<\/span>  0.12439197<\/span> -<\/span>0.06018300<\/span>  0.14890459<\/span>  0.09431717<\/span>  0.16450217<\/span>  0.20082642<\/span>\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>
\u500b\u3005\u306e\u7814\u7a76\u306e\u76f8\u95a2\u4fc2\u6570\u306895%\u4fe1\u983c\u533a\u9593\u3092\u30b0\u30e9\u30d5\u306b\u3059\u308b<\/h2>\n\n\n\n
\u500b\u3005\u306e\u7814\u7a76\u3092\u30b0\u30e9\u30d5\u306b\u3059\u308b\u306b\u306f\u4ee5\u4e0b\u306e\u901a\u308a\u3002<\/p>\n\n\n\n
# ----- individual graph -----<\/span>\nk <-<\/span> length<\/span>(<\/span>n)<\/span>\nid <-<\/span> k:<\/span>1<\/span>\nplot<\/span>(<\/span>r,<\/span> id,<\/span> ylim=<\/span>c<\/span>(<\/span>-<\/span>4<\/span>,<\/span> k+<\/span>1<\/span>),<\/span> pch=<\/span>\" \"<\/span>,<\/span> xlim=<\/span>c<\/span>(<\/span>-<\/span>1<\/span>,<\/span>1<\/span>),<\/span> yaxt=<\/span>\"n\"<\/span>,<\/span>\nylab=<\/span>\"Citation\"<\/span>,<\/span> xlab=<\/span>\"Correlation coefficients\"<\/span>)<\/span>\ntitle<\/span>(<\/span>\" Correlation coefficient model \"<\/span>)<\/span>\nsymbols<\/span>(<\/span>r,<\/span> id,<\/span> squares=<\/span>sqrt<\/span>(<\/span>n-<\/span>3<\/span>),<\/span> add=<\/span>T<\/span>,<\/span> inches=<\/span>0.25<\/span>)<\/span>\nabline<\/span>(<\/span>v=<\/span>0<\/span>)<\/span>\nfor<\/span> (<\/span>i in<\/span> 1<\/span>:<\/span>k){<\/span>\nj <-<\/span> k-<\/span>i+<\/span>1<\/span>\nx <-<\/span> c<\/span>(<\/span>rl[<\/span>i],<\/span> ru[<\/span>i])<\/span>\ny <-<\/span> c<\/span>(<\/span>j,<\/span> j)<\/span>\nlines<\/span>(<\/span>x,<\/span> y,<\/span> type=<\/span>\"l\"<\/span>)<\/span>\ntext<\/span>(<\/span>-<\/span>0.5<\/span>,<\/span> i,<\/span> j)<\/span>\n}<\/span>\n<\/code><\/pre>\n\n\n\n
\u30b0\u30e9\u30d5\u306f\u3053\u3093\u306a\u98a8\u306b\u51fa\u529b\u3055\u308c\u308b\u3002<\/p>\n\n\n\n
\"\"<\/figure>\n\n\n\n
<\/span><\/p>\n\n\n\n
\u56fa\u5b9a\u52b9\u679c\u3067\u76f8\u95a2\u4fc2\u6570\u3092\u7d71\u5408\u3059\u308b<\/h2>\n\n\n\n
$ w_i = n_i – 3 $ \u3067\u91cd\u307f\u3065\u3051\u5e73\u5747\u3092\u53d6\u308b\u3068\u7d71\u5408\u76f8\u95a2\u4fc2\u6570\u306e\u63a8\u5b9a\u5024\uff08Fisher\u306e\u5206\u6563\u5b89\u5b9a\u5316\u5909\u63db\u5f8c\uff09\u3002<\/p>\n\n\n\n
tanh()\u3067\u623b\u3059\u3068\u6c42\u3081\u308b\u70b9\u63a8\u5b9a\u5024\u306b\u306a\u308b\u3002<\/p>\n\n\n\n
# ----- fixed effects -----<\/span>\nw <-<\/span> n-<\/span>3<\/span>\nsw <-<\/span> sum<\/span>(<\/span>w)<\/span>\nvarz <-<\/span> sum<\/span>(<\/span>w*<\/span>z)<\/span>\/<\/span>sw\nvarr <-<\/span> tanh<\/span>(<\/span>varz)<\/span>\nvarrl <-<\/span> tanh<\/span>(<\/span>varz-<\/span>Za*<\/span>sqrt<\/span>(<\/span>1<\/span>\/<\/span>sw))<\/span>\nvarru <-<\/span> tanh<\/span>(<\/span>varz+<\/span>Za*<\/span>sqrt<\/span>(<\/span>1<\/span>\/<\/span>sw))<\/span>\nq1 <-<\/span> sum<\/span>(<\/span>w*<\/span>(<\/span>z-<\/span>varz)<\/span>^<\/span>2<\/span>)<\/span>\ndf1 <-<\/span> k-<\/span>1<\/span>\npval1 <-<\/span> 1<\/span>-<\/span>pchisq<\/span>(<\/span>q1,<\/span> df1)<\/span>\nq2 <-<\/span> varz^<\/span>2<\/span>*<\/span>sw\ndf2 <-<\/span> 1<\/span>\npval2 <-<\/span> 1<\/span>-<\/span>pchisq<\/span>(<\/span>q2,<\/span> df2)<\/span>\n<\/code><\/pre>\n\n\n\n
\u5909\u91cf\u52b9\u679c\u3067\u76f8\u95a2\u4fc2\u6570\u3092\u7d71\u5408\u3059\u308b<\/h2>\n\n\n\n
Dersimonian-Laird\u306e\u65b9\u6cd5\u306e\u65b9\u6cd5\u3067\u7d71\u5408\u3059\u308b\u3002<\/p>\n\n\n\n
# ----- random effects -----<\/span>\ntau2 <-<\/span> (<\/span>q1-<\/span>(<\/span>k-<\/span>1<\/span>))<\/span>\/<\/span>(<\/span>sw-<\/span>sum<\/span>(<\/span>w*<\/span>w)<\/span>\/<\/span>sw)<\/span>\ntau2 <-<\/span> max<\/span>(<\/span>0<\/span>,<\/span> tau2)<\/span>\nwx <-<\/span> 1<\/span>\/<\/span>(<\/span>tau2+<\/span>se*<\/span>se)<\/span>\nswx <-<\/span> sum<\/span>(<\/span>wx)<\/span>\nvarzd <-<\/span> sum<\/span>(<\/span>wx*<\/span>z)<\/span>\/<\/span>swx\nvarrd <-<\/span> tanh<\/span>(<\/span>varzd)<\/span>\nvarrdl <-<\/span> tanh<\/span>(<\/span>varzd-<\/span>Za*<\/span>sqrt<\/span>(<\/span>1<\/span>\/<\/span>swx))<\/span>\nvarrdu <-<\/span> tanh<\/span>(<\/span>varzd+<\/span>Za*<\/span>sqrt<\/span>(<\/span>1<\/span>\/<\/span>swx))<\/span>\nqx2 <-<\/span> varzd^<\/span>2<\/span>*<\/span>swx\npvalx2 <-<\/span> 1<\/span>-<\/span>pchisq<\/span>(<\/span>qx2,<\/span> df2)<\/span>\n<\/code><\/pre>\n\n\n\n
\u56fa\u5b9a\u52b9\u679c\u3068\u5909\u91cf\u52b9\u679c\u306e\u7d71\u5408\u5024\u3092\u30b0\u30e9\u30d5\u306b\u66f8\u304d\u5165\u308c\u308b<\/h2>\n\n\n\n
\u56fa\u5b9a\u52b9\u679c\uff08\u30b0\u30e9\u30d5\u4e2d\u306fCombined: fixed\uff09\u3068\u5909\u91cf\u52b9\u679c\uff08\u30b0\u30e9\u30d5\u4e2d\u306fCombined: random\uff09\u3092\u30b0\u30e9\u30d5\u306b\u66f8\u304d\u5165\u308c\u308b\u3002<\/p>\n\n\n\n
# ----- graph -----<\/span>\nx <-<\/span> c<\/span>(<\/span>varrl,<\/span> varru)<\/span>\ny <-<\/span> c<\/span>(<\/span>-<\/span>1<\/span>,<\/span> -<\/span>1<\/span>)<\/span>\nlines<\/span>(<\/span>x,<\/span> y,<\/span> type=<\/span>\"b\"<\/span>)<\/span>\nx <-<\/span> c<\/span>(<\/span>varrdl,<\/span> varrdu)<\/span>\ny <-<\/span> c<\/span>(<\/span>-<\/span>2<\/span>,<\/span> -<\/span>2<\/span>)<\/span>\nlines<\/span>(<\/span>x,<\/span> y,<\/span> type=<\/span>\"b\"<\/span>)<\/span>\nabline<\/span>(<\/span>v=<\/span>c<\/span>(<\/span>varr,<\/span> varrd),<\/span> lty=<\/span>2<\/span>)<\/span>\ntext<\/span>(<\/span>-<\/span>0.5<\/span>,<\/span> -<\/span>1<\/span>,<\/span> \"Combined: fixed\"<\/span>)<\/span>\ntext<\/span>(<\/span>-<\/span>0.5<\/span>,<\/span> -<\/span>2<\/span>,<\/span> \"Combined: random\"<\/span>)<\/span>\n<\/code><\/pre>\n\n\n\n
\u30b0\u30e9\u30d5\u306f\u3053\u3093\u306a\u611f\u3058\u306b\u306a\u308b\u3002<\/p>\n\n\n\n
\"\"<\/figure>\n\n\n\n
<\/span><\/p>\n\n\n\n
\u5236\u9650\u4ed8\u304d\u6700\u5c24\u63a8\u5b9a\u91cf\u3092\u7528\u3044\u305f\u65b9\u6cd5\uff08REML\uff09\u3067\u76f8\u95a2\u4fc2\u6570\u3092\u7d71\u5408\u3059\u308b<\/h2>\n\n\n\n
Restricted Maximum Likelihood estimator\uff08REML\uff09\u3092\u9069\u7528\u3057\u305f\u65b9\u6cd5\u3002<\/p>\n\n\n\n
\u4ee5\u4e0b\u306e\u30b9\u30af\u30ea\u30d7\u30c8\u3067\u7e70\u308a\u8fd4\u3057\u53ce\u675f\u8a08\u7b97\u3092\u884c\u3044\u89e3\u3092\u6c42\u3081\u308b\u3002<\/p>\n\n\n\n
$ \\hat{\\tau}^2 $ \u306e\u521d\u671f\u5024\u306b\u306fDerSimonian-Laird\u306e\u65b9\u6cd5\u3067\u6c42\u3081\u305f\u5024\u3092\u7528\u3044\u308b\u3002<\/p>\n\n\n\n
# ----- REML method -----<\/span>\nintau <-<\/span> tau2\ntau <-<\/span> intau\n#<\/span>\nnrep <-<\/span> 10<\/span>\nnewt <-<\/span> 1<\/span>:<\/span>nrep\nfor<\/span> (<\/span>i in<\/span> 1<\/span>:<\/span>nrep){<\/span>\nwb <-<\/span> 1<\/span>\/<\/span>(<\/span>tau+<\/span>se*<\/span>se)<\/span>\nzmb <-<\/span> sum<\/span>(<\/span>wb*<\/span>z)<\/span>\/<\/span>sum<\/span>(<\/span>wb)<\/span>\nqf <-<\/span> k\/<\/span>(<\/span>k-<\/span>1<\/span>)<\/span>*<\/span>(<\/span>z-<\/span>zmb)<\/span>^<\/span>2<\/span>-<\/span>se*<\/span>se\ndkx <-<\/span> (<\/span>-<\/span>1<\/span>*<\/span>sum<\/span>(<\/span>z*<\/span>wb*<\/span>wb)<\/span>+<\/span>zmb*<\/span>sum<\/span>(<\/span>wb*<\/span>wb))<\/span>\/<\/span>sum<\/span>(<\/span>wb)<\/span>\nqf2 <-<\/span> -<\/span>2<\/span>*<\/span>k\/<\/span>(<\/span>k-<\/span>1<\/span>)<\/span>*<\/span>(<\/span>z-<\/span>zmb)<\/span>*<\/span>dkx\nh <-<\/span> sum<\/span>(<\/span>wb*<\/span>wb*<\/span>(<\/span>qf-<\/span>tau))<\/span>\ndh <-<\/span> sum<\/span>(<\/span>-<\/span>2<\/span>*<\/span>wb*<\/span>wb*<\/span>wb*<\/span>(<\/span>qf-<\/span>tau)<\/span>+<\/span>wb*<\/span>wb*<\/span>(<\/span>qf2-<\/span>1<\/span>))<\/span>\nnewt[<\/span>i]<\/span> <-<\/span> tau -<\/span> h\/<\/span>dh\nrel <-<\/span> abs<\/span>((<\/span>newt[<\/span>i]<\/span>-<\/span>tau)<\/span>\/<\/span>tau)<\/span>\ntau <-<\/span> newt[<\/span>i]<\/span>\n}<\/span>\nwg <-<\/span> 1<\/span>\/<\/span>(<\/span>tau+<\/span>se*<\/span>se)<\/span>\nswg <-<\/span> sum<\/span>(<\/span>wg)<\/span>\nzRM <-<\/span> sum<\/span>(<\/span>z*<\/span>wg)<\/span>\/<\/span>swg\nrRM <-<\/span> tanh<\/span>(<\/span>zRM)<\/span>\nrRMl <-<\/span> tanh<\/span>(<\/span>zRM-<\/span>Za*<\/span>sqrt<\/span>(<\/span>1<\/span>\/<\/span>swg))<\/span>\nrRMu <-<\/span> tanh<\/span>(<\/span>zRM+<\/span>Za*<\/span>sqrt<\/span>(<\/span>1<\/span>\/<\/span>swg))<\/span>\nqx2RM <-<\/span> zRM^<\/span>2<\/span>*<\/span>swg\npvalx2RM <-<\/span> 1<\/span>-<\/span>pchisq<\/span>(<\/span>qx2RM,<\/span> df2)<\/span>\ntau2 <-<\/span> tau\n<\/code><\/pre>\n\n\n\n
REML\u306e\u7d50\u679c\u3092\u30b0\u30e9\u30d5\u306b\u66f8\u304d\u5165\u308c\u308b<\/h2>\n\n\n\n
# ----- REML graph -----<\/span>\nx <-<\/span> c<\/span>(<\/span>rRMl,<\/span> rRMu)<\/span>\ny <-<\/span> c<\/span>(<\/span>-<\/span>3<\/span>,<\/span> -<\/span>3<\/span>)<\/span>\nlines<\/span>(<\/span>x,<\/span> y,<\/span> type=<\/span>\"b\"<\/span>)<\/span>\nabline<\/span>(<\/span>v=<\/span>rRM,<\/span> lty=<\/span>2<\/span>)<\/span>\ntext<\/span>(<\/span>-<\/span>0.5<\/span>,<\/span> -<\/span>3<\/span>,<\/span> \"Combined: REML\"<\/span>)<\/span>\n<\/code><\/pre>\n\n\n\n
\u30b0\u30e9\u30d5\u306f\u3053\u3061\u3089\u300295%\u4fe1\u983c\u533a\u9593\u306f\u82e5\u5e72\u5e83\u304f\u306a\u308b\u304c\u3001\u7d71\u8a08\u5b66\u7684\u6709\u610f\u3067\u306f\u3042\u3063\u305f\u3002<\/p>\n\n\n\n
\"\"<\/figure>\n\n\n\n
<\/span><\/p>\n\n\n\n
\u7d50\u679c\u306e\u6570\u5024\u3092\u4e26\u3079\u3066\u6bd4\u3079\u3066\u307f\u308b\u3002<\/h2>\n\n\n\n
\u70b9\u63a8\u5b9a\u5024\u306f\u56fa\u5b9a\u52b9\u679c\u2192DerSimonian-Laird\u306e\u65b9\u6cd5\u2192REML\u3068\u3060\u3093\u3060\u3093\u306b\u5927\u304d\u304f\u306a\u308a\u300195%\u4fe1\u983c\u533a\u9593\u3082\u3060\u3093\u3060\u3093\u5e83\u304f\u306a\u3063\u3066\u3044\u3063\u305f\u3002<\/p>\n\n\n\n
\u6700\u7d42\u7684\u306b\u3001\u7d71\u8a08\u5b66\u7684\u6709\u610f\uff08$ P_{REML} = 0.0003 $\uff09<\/p>\n\n\n\n
><\/span> ## Fixed effects<\/span>\n><\/span> list<\/span>(<\/span>round<\/span>(<\/span>c<\/span>(<\/span>rFE=<\/span>varr,<\/span> LL=<\/span>varrl,<\/span> UL=<\/span>varru,<\/span> Q1=<\/span>q1,<\/span> df1=<\/span>df1,<\/span> p1=<\/span>pval1,<\/span> Q2=<\/span>q2,<\/span> df2=<\/span>df2,<\/span> p2=<\/span>pval2),<\/span>4<\/span>))<\/span>\n[[<\/span>1<\/span>]]<\/span>\nrFE       LL       UL       Q1      df1       p1       Q2      df2       p2\n0.1463<\/span>   0.1298<\/span>   0.1627<\/span>  76.8331<\/span>   5.0000<\/span>   0.0000<\/span> 295.8090<\/span>   1.0000<\/span>   0.0000<\/span>\n><\/span>\n><\/span> ## Random effects<\/span>\n><\/span> list<\/span>(<\/span>round<\/span>(<\/span>c<\/span>(<\/span>rDL=<\/span>varrd,<\/span> LL=<\/span>varrdl,<\/span> UL=<\/span>varrdu,<\/span> Q2DL=<\/span>qx2,<\/span> df2=<\/span>df2,<\/span> p2DL=<\/span>pvalx2,<\/span> \"tau^2\"<\/span>=<\/span>intau),<\/span>4<\/span>))<\/span>\n[[<\/span>1<\/span>]]<\/span>\nrDL      LL      UL    Q2DL     df2    p2DL   tau^<\/span>2<\/span>\n0.1741<\/span>  0.0966<\/span>  0.2496<\/span> 19.0392<\/span>  1.0000<\/span>  0.0000<\/span>  0.0078<\/span>\n><\/span>\n><\/span> ## REML<\/span>\n><\/span> list<\/span>(<\/span>round<\/span>(<\/span>c<\/span>(<\/span>rRM=<\/span>rRM,<\/span> LL=<\/span>rRMl,<\/span> UL=<\/span>rRMu,<\/span> Q2RM=<\/span>qx2RM,<\/span> df2=<\/span>df2,<\/span> p2RM=<\/span>pvalx2RM,<\/span> \"tau^2\"<\/span>=<\/span>tau2),<\/span>4<\/span>))<\/span>\n[[<\/span>1<\/span>]]<\/span>\nrRM      LL      UL    Q2RM     df2    p2RM   tau^<\/span>2<\/span>\n0.1800<\/span>  0.0831<\/span>  0.2735<\/span> 13.0604<\/span>  1.0000<\/span>  0.0003<\/span>  0.0130<\/span>\n<\/code><\/pre>\n\n\n\n
\u307e\u3068\u3081<\/h2>\n\n\n\n
\u76f8\u95a2\u4fc2\u6570\u306e\u7d71\u5408\u3092 R \u3067\u3084\u3063\u3066\u307f\u305f\u3002<\/p>\n\n\n\n
\u76f8\u95a2\u4fc2\u6570\u306bFisher\u306e\u5206\u6563\u5b89\u5b9a\u5316\u5909\u63db\u3092\u307b\u3069\u3053\u3057\u3066\u3001n – 3 \u3092\u91cd\u307f\u306b\u3057\u3066\u91cd\u307f\u3065\u3051\u5e73\u5747\u3092\u53d6\u308b\u306e\u304c\u4e2d\u6838\u3060\u3002<\/p>\n\n\n\n
\u76f8\u95a2\u4fc2\u6570\u304c\u95a2\u5fc3\u4e8b\u306e\u7814\u7a76\u3092\u7d71\u5408\u3059\u308b\u3068\u304d\u306b\u306f\u3053\u306e\u65b9\u6cd5\u304c\u4f7f\u3048\u308b\u3002<\/p>\n\n\n\n
\u95a2\u9023\u8a18\u4e8b<\/h2>\n\n\n\n
\u6f38\u8fd1\u5206\u6563\u6cd5\u306b\u3088\u308b\u30aa\u30c3\u30ba\u6bd4\u306e\u7d71\u5408<\/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\u6f38\u8fd1\u5206\u6563\u6cd5\u3067\u30aa\u30c3\u30ba\u6bd4\u3092\u7d71\u5408\u3059\u308b\u30e1\u30bf\u30a2\u30ca\u30ea\u30b7\u30b9<\/a>\n\t\t\t\t\t\t\u30e1\u30bf\u30a2\u30ca\u30ea\u30b7\u30b9\u306e\u305f\u3081\u306b\u30aa\u30c3\u30ba\u6bd4\u3092\u7d71\u5408\u3057\u305f\u3044\u5834\u5408\u3067\u3001\u305d\u308c\u305e\u308c\u306e\u7814\u7a76\u306e\u30b5\u30f3\u30d7\u30eb\u30b5\u30a4\u30ba\u304c\u5927\u304d\u3044\u5834\u5408\u3001\u30aa\u30c3\u30ba\u6bd4\u306e\u5bfe\u6570\u304c\u6f38\u8fd1\u7684\u306b\u6b63\u898f\u8fd1\u4f3c\u3067\u304d\u308b\u3002 \u500b\u3005\u306e\u7814\u7a76\u306e\u30b5\u30f3\u30d7\u30eb\u30b5…<\/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
\u5f15\u7528\u66f8\u7c4d<\/h2>\n\n\n\n
\u30cd\u30bf\u672c\u306f\u3053\u3061\u3089<\/p>\n\n\n\n
4.2 \u76f8\u95a2\u4fc2\u6570<\/p>\n\n\n\n
\"\u30e1\u30bf\u30fb\u30a2\u30ca\u30ea\u30b7\u30b9\u5165\u9580\u2015\u30a8\u30d3\u30c7\u30f3\u30b9\u306e\u7d71\u5408\u3092\u3081\u3056\u3059\u7d71\u8a08\u624b\u6cd5<\/a><\/figure>\n\n\n\n
<\/div>\n\n\n\n
\n
\u30e1\u30bf\u30fb\u30a2\u30ca\u30ea\u30b7\u30b9\u5165\u9580\u2015\u30a8\u30d3\u30c7\u30f3\u30b9\u306e\u7d71\u5408\u3092\u3081\u3056\u3059\u7d71\u8a08\u624b\u6cd5 (\u533b\u5b66\u7d71\u8a08\u5b66\u30b7\u30ea\u30fc\u30ba)<\/a><\/p>\n