メイン　combine-d.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 calc(data_string)
{
  var i, k, data
  var n1, m1, sd1, n2, m2, sd2, mean_g, mean_d, sum1, sum2, s2, g, d, est_s2, err
  if ((data = getdata(data_string, 6)) != false) {
    printf("★ メタアナリシス（平均値の差の統合） ★\n\n")
    sep(119)
      printf("%15s%15s%15s%15s%15s%15s%10s%14s\n", "平均値", "標準偏差", "標本サイズ", "平均値", "標準偏差", "標本サイズ", "g", "d")
    sep(119)
    k = mean_g = mean_d = sum1 = sum2 = 0
    err = false
    for (i = 0; i < data.length; i++) {
      m1 = data[i][0]
      sd1 = data[i][1]
      n1 = data[i][2]
      m2 = data[i][3]
      sd2 = data[i][4]
      n2 = data[i][5]
      if (Math.floor(n1) != n1 || Math.floor(n2) != n2 || sd1 <= 0 || sd2 <= 0) {
        printf("入力データが変です。\n")
        err = true
        break
      }
      else if (n1 <= 1 || n2 <= 1) {
        printf("標本サイズは 2 以上でないといけません。\n")
        err = true
        break
      }
      s2 = Math.sqrt(((n1-1)*sd1*sd1 + (n2-1)*sd2*sd2) / (n1+n2-2))
      g = (m2-m1)/s2
      d = (1-3/(4*(n1+n2)-9))*g
      est_s2 = (n1+n2)/(n1*n2)+d*d/(2*(n1+n2))
      sum1 += d/est_s2
      sum2 += 1/est_s2
      k++
      mean_g += g
      mean_d += d
      printf("%15.7g%15.7g%12i%18.5f%15.7g%12i%16.7g%15.7g\n", m1, sd1, n1, m2, sd2, n2, g, d)
    }
    if (err == false) {
      sep(119)
      printf("g  = %g\n", mean_g/k)
      printf("d  = %g\n", mean_d/k)
      printf("d+ = %g\n", sum1/sum2)
    }
  }
  sep2(60)
}
//-->
</script>
</head>

<body bgcolor="#ffffff">
<font size="+2"><b>メタアナリシス（平均値の差の統合）</b></font>　<a  href="src/combine-d.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-d.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-4.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