Saya sedang mengerjakan contoh-contoh dalam Analisis Data Does Bayesian Kruschke , khususnya ANOVA eksponensial Poisson di bab. 22, yang ia sajikan sebagai alternatif untuk uji chi-square independensi untuk tabel kontingensi.
Saya dapat melihat bagaimana kita mendapatkan informasi tentang interaksi yang terjadi lebih atau kurang dari yang diharapkan jika variabelnya independen (mis. Ketika HDI tidak termasuk nol).
Pertanyaan saya adalah bagaimana saya bisa menghitung atau menafsirkan ukuran efek dalam kerangka kerja ini? Sebagai contoh, Kruschke menulis "kombinasi mata biru dengan rambut hitam terjadi lebih jarang daripada yang diharapkan jika warna mata dan warna rambut independen", tetapi bagaimana kita bisa menggambarkan kekuatan hubungan itu? Bagaimana saya bisa tahu interaksi mana yang lebih ekstrim dari yang lain? Jika kami melakukan uji chi-square data ini, kami mungkin menghitung V Cramér sebagai ukuran ukuran efek keseluruhan. Bagaimana cara saya menyatakan ukuran efek dalam konteks Bayesian ini?
Ini contoh mandiri dari buku (dikodekan R
), kalau-kalau jawabannya tersembunyi dari saya di depan mata ...
df <- structure(c(20, 94, 84, 17, 68, 7, 119, 26, 5, 16, 29, 14, 15,
10, 54, 14), .Dim = c(4L, 4L), .Dimnames = list(c("Black", "Blond",
"Brunette", "Red"), c("Blue", "Brown", "Green", "Hazel")))
df
Blue Brown Green Hazel
Black 20 68 5 15
Blond 94 7 16 10
Brunette 84 119 29 54
Red 17 26 14 14
Berikut ini adalah output yang sering, dengan ukuran ukuran efek (tidak ada di buku):
vcd::assocstats(df)
X^2 df P(> X^2)
Likelihood Ratio 146.44 9 0
Pearson 138.29 9 0
Phi-Coefficient : 0.483
Contingency Coeff.: 0.435
Cramer's V : 0.279
Inilah output Bayesian, dengan HDI dan probabilitas sel (langsung dari buku):
# prepare to get Krushkes' R codes from his web site
Krushkes_codes <- c(
"http://www.indiana.edu/~kruschke/DoingBayesianDataAnalysis/Programs/openGraphSaveGraph.R",
"http://www.indiana.edu/~kruschke/DoingBayesianDataAnalysis/Programs/PoissonExponentialJagsSTZ.R")
# download Krushkes' scripts to working directory
lapply(Krushkes_codes, function(i) download.file(i, destfile = basename(i)))
# run the code to analyse the data and generate output
lapply(Krushkes_codes, function(i) source(basename(i)))
Dan berikut adalah plot posterior model eksponensial Poisson yang diterapkan pada data:
Dan plot distribusi posterior pada perkiraan probabilitas sel: