chisqr :: [Float ] -> [Float ] -> Float
chisqr os es = sum[((o - e) ^ 2)/e | (o,e) <- zip os es]
chisqr :: [Float ] -> [Float ] -> Float
chisqr os es = sum[((o - e) ^ 2)/e | (o,e) <- zip os es]
chisqr os es = sum[((o - e) ^ 2)/e | (o,e) <- zip os es]