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

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

function f_hiritu1(form)
{
  form.chi.value = form.p.value = form.p2.value = ""
  var b, c, n, r, pi, p, nu1, nu2, f, z
  if (isNaN(b = parseFloat(form.b.value)) || b != Math.floor(b) || isNaN(c = parseFloat(form.c.value)) || c != Math.floor(c) || b < 0 || c < 0 || b+c == 0) {
    alert("入力された数値が変です")
    return
  }
  n = b+c
  r = b
  pi = 0.5
  p = r/n
  if (p > pi) {
    nu1 = 2*(n-r+1)
    nu2 = 2*r
    f = nu2*(1-pi)/(nu1*pi)
    p = 2*fxp(f, nu1, nu2)
  }
  else if (p < pi) {
    nu1 = 2*(r+1)
    nu2 = 2*(n-r)
    f = nu2*pi/(nu1*(1-pi))
    p = 2*fxp(f, nu1, nu2)
  }
  else {
    alert("変化はなかったのですね？")
    return
  }
  z = Math.abs(b-c)/Math.sqrt(b+c)
  form.chi.value = fixed(z*z, 5)
  form.p.value = out_pvalue(gxp(z)*2)
  form.p2.value = out_pvalue(p)
}

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

<body bgcolor="#ffffff">
<font size="+2"><b>マクネマー検定</b></font>　<a  href="src/McNemar.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>
<script language="JavaScript">
<!--
//-->JavaScript がサポートされていないブラウザですか？
</script>
<hr noshade>
    <table>
    <tr>
    <td nowrap align=right>
      <form name="hiritu1">
      ＋が−に変化した例数 <input name="b" value=28 size=10><br>
      −が＋に変化した例数 <input name="c" value=35 size=10><br>
      <input type="button" name="clear" value="初期化" onClick="this.form.b.value=this.form.c.value=this.form.chi.value=this.form.p.value=this.form.p2.value=''">　<input type="button" name="calcurate" value="計算開始" onClick="f_hiritu1(this.form)"><br>
      χ<sup>2</sup> 値 <input name="chi" value="" size=10><br>
      漸近近似による P 値 <input name="p" value="" size=10><p>
      二項検定による正確な P 値 <input name="p2" value="" size=10><br>
      </form>
    </td>
    </tr>
    </table>
マクネマー検定の場合，χ<sup>2</sup> 値の自由度は常に１です。<p>
二項検定は，<a href="tests.html">母比率 = 0.5 のＦ分布による正確な検定</a>と等価です。<p>

<hr noshade>
<img src="../gra/button3.png" width=9 height=9 alt="・"> <A HREF="../lecture/Hiritu/McNemar-test.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>

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

Made with Macintosh