コインを裏返して268の表と98の裏を取得した場合、コインが公正である確率をいくつかの方法で計算できます。単純なヒューリスティックな観察では、そのようなコインは不公平であると結論付ける可能性が最も高いでしょう。私はRでp値を計算しました:
> coin <- pbinom(98, 366, 0.5)
> coin*2
[1] 2.214369e-19
この値は.05よりも小さいため、公正なコインであるという仮説を棄却します。
しかし、裁判中に同じコインが676回横に落ちたと言ったとしたらどうでしょう。ヒューリスティックに同じ結論に達する可能性が高いですが、典型的なフェアコインテストはまだ有効ですか?
これは問題を説明するグラフです:
日陰の領域でイベントが発生する確率が等しいという仮説を検証する有効な方法は何ですか?
注:グラフの図には、629のプラスの動き(413のマイナス)があります。
データを生成するRコード:
require("quantmod")
ticker <- getSymbols("SLV")[,6]
change <- (ticker - lag(ticker, 24)) / lag(ticker, 24)
change <- na.locf(change, na.rm=TRUE)
# some other calculations
dens <- density(change)
plot(dens)
# some formatting stuff