Tôi đang làm việc thông qua các ví dụ trong Phân tích dữ liệu Bay Bay của Kruschke , cụ thể là ANOVA theo cấp số nhân của Poisson trong ch. 22, mà ông trình bày như là một thay thế cho các bài kiểm tra chi bình phương thường xuyên về tính độc lập cho các bảng dự phòng.
Tôi có thể thấy cách chúng tôi nhận thông tin về các tương tác xảy ra thường xuyên hơn hoặc ít hơn mong đợi nếu các biến độc lập (nghĩa là khi HDI loại trừ 0).
Câu hỏi của tôi là làm thế nào tôi có thể tính toán hoặc giải thích một kích thước hiệu ứng trong khung này? Ví dụ, Kruschke viết "sự kết hợp giữa mắt xanh với tóc đen xảy ra ít thường xuyên hơn mong đợi nếu màu mắt và màu tóc là độc lập", nhưng làm thế nào chúng ta có thể mô tả sức mạnh của sự liên kết đó? Làm thế nào tôi có thể biết những tương tác nào cực đoan hơn những tương tác khác? Nếu chúng tôi thực hiện kiểm tra chi bình phương các dữ liệu này, chúng tôi có thể tính toán Cramér's V như một thước đo kích thước hiệu ứng tổng thể. Làm thế nào để tôi thể hiện kích thước hiệu ứng trong bối cảnh Bayes này?
Đây là ví dụ độc lập từ cuốn sách (được mã hóa R
), chỉ trong trường hợp câu trả lời bị ẩn khỏi tôi trong tầm nhìn rõ ràng ...
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
Đây là đầu ra thường xuyên, với các số đo kích thước hiệu ứng (không có trong sách):
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
Đây là đầu ra Bayes, với HDI và xác suất di động (trực tiếp từ cuốn sách):
# 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)))
Và đây là các sơ đồ của mô hình hàm mũ Poisson được áp dụng cho dữ liệu:
Và các sơ đồ phân bố sau về xác suất tế bào ước tính: