メイン　corr4.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="gxp.js">document.write("gxp.js ファイルが見つかりません??<br>")</script>
<script src="xxp.js">document.write("xxp.js ファイルが見つかりません??<br>")</script>
<script src="io.js">document.write("io.js ファイルが見つかりません??<br>")</script>

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

function calc(data_string)
{
  var i, k, data, n, r, v, z, svzz, svz, sv, chi, p, temp
  if ((data = getdata(data_string, 2)) == false) return
  if ((k = data.length) < 2) {
    printf("相関係数の個数は2以上必要です\n")
    return
  }
  printf("複数の相関係数の同等性の検定と点推定\n")
  sep(25)
  printf("%10s %13s\n", "標本サイズ", "標本相関係数")
  sep(25)
  svzz = svz = sv = 0
  for (i = 0; i < k; i++) {
    if ((n = data[i][0]) != Math.floor(n)) {
      printf("%i 番目の標本サイズが整数ではありません。\n", i)
      return
    }
    else if (n <= 3) {
      printf("%i 番目の標本サイズが 3 以下です。（3 以上でないと計算できません）\n", i)
      return
    }    
    else if (Math.abs(r = data[i][1]) >= 1) {
      printf("%i 番目の相関係数が 1 以上です。\n", i)
      return
    }
    printf("%6i %14.5f\n", n, r)
    v = n-3
    z = 0.5*Math.log((1+r)/(1-r))
    svzz += v*z*z
    svz += v*z
    sv += v
  }
  sep(25)
  printf("相関係数の個数 = %i\n", k)
  chi = svzz-svz*svz/sv
  p = xxp(chi, k-1)
  if (k == 2) {
  printf("       z値 = %g\n", Math.sqrt(chi))
  }
  else {
  printf("カイ二乗値 = %g\n", chi)
  printf("    自由度 = %i\n", k-1)
  }
  printf("       P値 = %.5f\n", p)
  temp = Math.exp(2*svz/sv)
  printf("母相関係数の推定値 = %.5f\n", (temp-1)/(temp+1))
  if (p < 0.05) {
    printf("%s\n%s\n%s\n", "ただし，これらの相関係数が同等である",
              "という帰無仮説が棄却されたので，",
              "上の推定値を採用するのは不適当です。")
  }
  printf("\n")
  sep(40)
  printf("\n")
}
//-->
</script>
</head>

<body bgcolor="#ffffff">
<font size="+2"><b>複数の相関係数の同等性の検定と点推定</b></font>　<a  href="src/corr4.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>
複数の標本において，既に計算されている相関係数が同じ母集団からのものであるか検定し，同一とみなされる場合にはそれらを統合して一つの推定値を求める。<br>
<img src="../gra/button3.png" width=9 height=9 alt="・"> <A HREF="../lecture/Corr/corr4.html">手法の解説</a>　<img src="../gra/button3.png" width=9 height=9 alt="・"> <a href="exa/corr4.html">使用法</a><br>
<hr>
<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>
</tr></table>
<p>
<table><tr>
<td>入力欄<br><textarea name="data" ROWS=20 COLS=20></textarea></td>
<td>出力欄<br><textarea name="result" ROWS=20 COLS=80></textarea></td>
</tr></table>
</form>
<p><hr noshade>
<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><IMG SRC="../gra/ume5.png" width=121 height=37 ALT="Made with Macintosh">
</body>
</html>

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

Made with Macintosh