[原発・フッ素50] 今年（２０１８）７月も低迷する福島のモモ価格、ＴＯＫＩＯのＣＭも効果無し（めげ猫「タマ」の日記） 赤かぶ
12. 2018年8月21日 13:40:49 : eF2FVbEgMc : p2gGqWNr@Eg[1]
　
＞■計算自体が無茶苦茶

計算自体は、excel の統計関数 CHIDIST(χ^2値, 自由度) を用いて
偶然起こる確率（危険率）を出しているようですよ。

　　　CHIDIST(18.16;1)=0.00002031　　　　→　0.002%

念のため、R でも使って確かめてみると、

　　　# カイ二乗　p 値の計算
　　　k>2氏の手動計算をフォローする気にはならない
# それから、
#
# ＞■年齢調整されていない
# ＞■カイ2乗検定が使えない
#
# などについて、ごもっともというか、厳密性を言ったら何もできない。
# ザックリおおまかの方に実態を伝えるのがよろしいかと。
#
# ＞南相馬 638　492 465　429　110 17.2%
#
# もごもっとも。仮に20％とみても、投稿者の主張を変える必要はないと思われ。
　
http://www.asyura2.com/18/genpatu50/msg/235.html#c12

[原発・フッ素50] 今年（２０１８）７月も低迷する福島のモモ価格、ＴＯＫＩＯのＣＭも効果無し（めげ猫「タマ」の日記） 赤かぶ
13. 2018年8月21日 13:45:33 : eF2FVbEgMc : p2gGqWNr@Eg[2]
　
おや、R のスクリプトと阿修羅のタグがバッティングしちゃったようですね。
＜− を ＝ として、R のところだけ再投稿します。
　
念のため、R でも使って確かめてみると、

　　　# カイ二乗　p 値の計算
　　　k＝ 18.16　#カイ二乗値
　　　n＝ 1　　　 # 自由度
　　　
　　　# 組み込み関数によるp値
　　　pchisq(k, n, lower=F)

　　　結果
　　　[1] 2.031001e-05

となってほぼ同じ危険率です。
　
＃ 申し訳ないけど、>>2氏の手動計算をフォローする気にはならない。
　
http://www.asyura2.com/18/genpatu50/msg/235.html#c13