齐一性检验

齐一性检验：

n1=2   #行
n2=3   #列
n=matrix(c(49,51,31,20,100,49),n1,n2) #按列写入  #63题
n

chi=matrix(0,n1,n2)
for(i in 1:n1){
  for(j in 1:n2){
    chi[i,j]=(n[i,j]-sum(n[i,])*sum(n[,j])/sum(n))^2/(sum(n[i,])*sum(n[,j])/sum(n))
  }
}
sum(chi)   #卡方统计量的值

计算结果${\chi }^2=8.196797>{\chi }_{0.05}^2(2)$,故拒绝原假设，认为有差异。