メイン　combine-r.html　　　Last modified: Sep 01, 2009
<html>
<head>
<meta http-equiv="Content-Type" content="text/html;CHARSET=EUC-JP">
<link rel="shortcut icon" href="../favicon.ico">
<title>JavaScript</title>
<script src="io.js">document.write("io.js ファイルが見つかりません??<br>")</script>

<script language="JavaScript">
<!--

function fisher(r)
{
  return 0.5*Math.log((1+r)/(1-r))
}

function inv_fisher(z)
{
  return (Math.exp(2*z)-1)/(Math.exp(2*z)+1)
}

function calc(data_string)
{
  var data, i, k, err
  var N, n, r, z, sum_r, sum_z, Wsum_r, Wsum_z
  if ((data = getdata(data_string, 2)) != false) {
    printf("★ メタアナリシス（相関係数の統合） ★\n\n")
    sep(42)
      printf("%11s%10s%20s\n", "標本サイズ", "相関係数", "Fisher の Z 変換値")
    sep(42)
      k = data.length
      N = sum_r = sum_z = Wsum_r = Wsum_z = 0
      err = false
    for (i = 0; i < k; i++) {
      n = data[i][0]
      if (Math.floor(n) != n || n <= 0) {
        printf("入力された標本サイズが変です。 n = %g ???\n", n)
        err = true
        break
      }
      r = data[i][1]
      if (Math.abs(r) >= 1) {
        printf("入力された相関係数が変です。 r = %g ???\n", r)
        err = true
        break
      }
      z = fisher(r)
      sum_r += r
      sum_z += z
      Wsum_r += r*n
      Wsum_z += z*n
      N += n
      printf("%8i%12.5f%15.5f\n", n, r, z)
    }
    if (err == false) {
      sep(42)
      printf("\n")
      printf("単純平均 = %g\n", sum_r/k)
      printf("Fisher   = %g\n", inv_fisher(sum_z/k))
      printf("重みつき平均      = %g\n", Wsum_r/N)
      printf("重みつき Fisher   = %g\n\n", inv_fisher(Wsum_z/N))
    }
  }
  sep2(40)

}
//-->
</script>
</head>

<body bgcolor="#ffffff">
<font size="+2"><b>メタアナリシス（相関係数の統合）</b></font>　<a  href="src/combine-r.html"><img src="png/src.png" width=35 height=11 alt="src" align=top></a>　　　　　Last modified: Jun 01, 2006<hr noshade><p>
<font color="#ff0000" size="+2">以下のプログラムのサポートは終了しました。自己責任でお使い下さい。</font>

<form name=Result>
<script language="JavaScript">
<!--
//-->JavaScript がサポートされていないブラウザですか？
</script>
<table><tr>
<td><input type="button" name="calcurate" value="計算開始" onClick="calc(this.form.data.value)">　　</td>
<td><input type="button" name="clear" value="入力欄クリア" onClick="this.form.data.value=''">　　</td>
<td><input type="button" name="clear" value="出力欄クリア" onClick="this.form.result.value=''">　　</td>
<td><img src="../gra/button3.png" width=9 height=9 alt="・"> <a href="exa/combine-r.html">使用法</a></td>
</tr></table>

<p>
<table><tr>
<td>入力欄<br><textarea name="data" ROWS=16 COLS=20></textarea></td>
<td>出力欄<br><textarea name="result" ROWS=16 COLS=80></textarea></td>
</tr>
<tr><td colspan=2>入力欄には，１行に１群ずつ，各群の「標本サイズ」，「相関係数」の順に<a href="exa/kugirimoji.html">区切り文字</a>で区切って入力</td>
</tr></table>
</form>

<p><hr noshade>
<img src="../gra/button3.png" width=9 height=9 alt="・"> <a href="../lecture/meta-analysis/meta-analysis-6.html">手法の解説</a><br>
<img src="../gra/button3.png" width=9 height=9 alt="・"> <A HREF="javascript:history.go(-1)">直前のページへ戻る</A>　　<img src="../gra/button3.png" width=9 height=9 alt="・"> <a href="../mail.html">E-mail to Shigenobu AOKI</a>
<p><center><IMG SRC="../gra/ume5.png" width=121 height=37 ALT="Made with Macintosh"></center>
</body>
</html>

サブ　io.js　　　Last modified: Mar 25, 2004
・ 直前のページへ戻る　　・ E-mail to Shigenobu AOKI

Made with Macintosh