Jika Anda melempar koin dan mendapatkan 268 kepala dan 98 ekor, Anda dapat menghitung probabilitas bahwa koin itu adil beberapa cara. Pengamatan heuristik yang sederhana kemungkinan besar akan menyimpulkan bahwa koin semacam itu tidak adil. Saya telah menghitung nilai p dalam R dengan:
> coin <- pbinom(98, 366, 0.5)
> coin*2
[1] 2.214369e-19
Nilai ini lebih kecil dari 0,05, kami menolak hipotesis bahwa ini adalah koin yang adil.
Tetapi bagaimana jika Anda diberitahu di mana bahwa koin yang sama mendarat di sisinya 676 kali selama persidangan. Secara heuristik kemungkinan Anda akan sampai pada kesimpulan yang sama, tetapi apakah tes koin biasa masih valid?
Berikut ini adalah grafik untuk menggambarkan masalahnya:

Apa metode yang valid untuk menguji hipotesis bahwa ada probabilitas yang sama bahwa suatu peristiwa terjadi di daerah yang diarsir?
CATATAN: ada 629 gerakan positif (413 negatif) dalam ilustrasi grafik.
Kode R yang menghasilkan data:
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
