与卡方拟合优度检验计算相关的问题

Question

我正在尝试解决下面提到的问题。根据我的计算，我得到的卡方值为 2,239,444.68，自由度为 5。根据卡方计算器，我得到的 P 值为 0.0000，但提到了以下测验问题的正确 P 值为 0.32。您能否提供卡方拟合优度检验的解决方案？

Answer 1

这就是计算具有

p-value

自由度的卡方拟合优度检验统计量

6-1=5

的方法（因为

x

可以采用

6

值）：

n <- 5
p <- 0.57

x <- 0:5
df <- data.frame(x=x, 
      observerd=c(25,165,429,500,339,92), 
      expected=1550*dbinom(x, n, p))

df
#  x observerd  expected
#1 0        25  22.78631
#2 1       165 151.02553
#3 2       429 400.39328
#4 3       500 530.75388
#5 4       339 351.77873
#6 5        92  93.26227

chisq.statistic <- sum((df$observerd - df$expected)^2 /df$expected)

pchisq(chisq.statistic, df=length(x)-1, lower.tail = FALSE) # p-value
# [1] 0.3246123

因此，我们不能拒绝 5% 或 10% 显着性水平的零假设。