カイ二乗検定

chi_squared_test.rb

h = {}
120.times {
  r = rand(6)
  h[r] = h[r].nil? ? 0 : h[r] += 1
}

p h

a = []
e = 20
h.each { |k, v|
  a << ((v.to_f - e) ** 2) / e
}

p a

p sum = a.reduce(:+)
p sum <= 11.07 # 自由度5の有意水準5%