123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594 |
- // test_chi_squared.cpp
- // Copyright Paul A. Bristow 2006.
- // Copyright John Maddock 2007.
- // Use, modification and distribution are subject to the
- // Boost Software License, Version 1.0.
- // (See accompanying file LICENSE_1_0.txt
- // or copy at http://www.boost.org/LICENSE_1_0.txt)
- #ifdef _MSC_VER
- # pragma warning(disable: 4100) // unreferenced formal parameter.
- // Seems an entirely spurious warning - formal parameter T IS used - get error if /* T */
- //# pragma warning(disable: 4535) // calling _set_se_translator() requires /EHa (in Boost.test)
- // Enable C++ Exceptions Yes With SEH Exceptions (/EHa) prevents warning 4535.
- # pragma warning(disable: 4127) // conditional expression is constant
- #endif
- #include <boost/math/tools/test.hpp> // for real_concept
- #include <boost/math/concepts/real_concept.hpp> // for real_concept
- using ::boost::math::concepts::real_concept;
- #include <boost/math/distributions/chi_squared.hpp> // for chi_squared_distribution
- #include <boost/math/distributions/non_central_chi_squared.hpp> // for chi_squared_distribution
- using boost::math::chi_squared_distribution;
- using boost::math::chi_squared;
- #define BOOST_TEST_MAIN
- #include <boost/test/unit_test.hpp> // for test_main
- #include <boost/test/tools/floating_point_comparison.hpp> // for BOOST_CHECK_CLOSE
- #include "test_out_of_range.hpp"
- #include <iostream>
- using std::cout;
- using std::endl;
- #include <limits>
- using std::numeric_limits;
- template <class RealType>
- RealType naive_pdf(RealType df, RealType x)
- {
- using namespace std; // For ADL of std functions.
- RealType e = log(x) * ((df / 2) - 1) - (x / 2) - boost::math::lgamma(df/2);
- e -= log(static_cast<RealType>(2)) * df / 2;
- return exp(e);
- }
- template <class RealType>
- void test_spot(
- RealType df, // Degrees of freedom
- RealType cs, // Chi Square statistic
- RealType P, // CDF
- RealType Q, // Complement of CDF
- RealType tol) // Test tolerance
- {
- boost::math::chi_squared_distribution<RealType> dist(df);
- BOOST_CHECK_CLOSE(
- cdf(dist, cs), P, tol);
- BOOST_CHECK_CLOSE(
- pdf(dist, cs), naive_pdf(dist.degrees_of_freedom(), cs), tol);
- if((P < 0.99) && (Q < 0.99))
- {
- //
- // We can only check this if P is not too close to 1,
- // so that we can guarantee Q is free of error:
- //
- BOOST_CHECK_CLOSE(
- cdf(complement(dist, cs)), Q, tol);
- BOOST_CHECK_CLOSE(
- quantile(dist, P), cs, tol);
- BOOST_CHECK_CLOSE(
- quantile(complement(dist, Q)), cs, tol);
- }
- boost::math::non_central_chi_squared_distribution<RealType> dist2(df, 0);
- BOOST_CHECK_CLOSE(
- cdf(dist2, cs), P, tol);
- BOOST_CHECK_CLOSE(
- pdf(dist2, cs), naive_pdf(dist2.degrees_of_freedom(), cs), tol);
- if((P < 0.99) && (Q < 0.99))
- {
- //
- // We can only check this if P is not too close to 1,
- // so that we can guarantee Q is free of error:
- //
- BOOST_CHECK_CLOSE(
- cdf(complement(dist2, cs)), Q, tol);
- BOOST_CHECK_CLOSE(
- quantile(dist2, P), cs, tol);
- BOOST_CHECK_CLOSE(
- quantile(complement(dist2, Q)), cs, tol);
- }
- }
- //
- // This test data is taken from the tables of upper and lower
- // critical values of the Chi Squared distribution available
- // at http://www.itl.nist.gov/div898/handbook/eda/section3/eda3674.htm
- //
- double q[] = { 0.10, 0.05, 0.025, 0.01, 0.001 };
- double upper_critical_values[][6] = {
- { 1, 2.706, 3.841, 5.024, 6.635, 10.828 },
- { 2, 4.605, 5.991, 7.378, 9.210, 13.816 },
- { 3, 6.251, 7.815, 9.348, 11.345, 16.266 },
- { 4, 7.779, 9.488, 11.143, 13.277, 18.467 },
- { 5, 9.236, 11.070, 12.833, 15.086, 20.515 },
- { 6, 10.645, 12.592, 14.449, 16.812, 22.458 },
- { 7, 12.017, 14.067, 16.013, 18.475, 24.322 },
- { 8, 13.362, 15.507, 17.535, 20.090, 26.125 },
- { 9, 14.684, 16.919, 19.023, 21.666, 27.877 },
- { 10, 15.987, 18.307, 20.483, 23.209, 29.588 },
- { 11, 17.275, 19.675, 21.920, 24.725, 31.264 },
- { 12, 18.549, 21.026, 23.337, 26.217, 32.910 },
- { 13, 19.812, 22.362, 24.736, 27.688, 34.528 },
- { 14, 21.064, 23.685, 26.119, 29.141, 36.123 },
- { 15, 22.307, 24.996, 27.488, 30.578, 37.697 },
- { 16, 23.542, 26.296, 28.845, 32.000, 39.252 },
- { 17, 24.769, 27.587, 30.191, 33.409, 40.790 },
- { 18, 25.989, 28.869, 31.526, 34.805, 42.312 },
- { 19, 27.204, 30.144, 32.852, 36.191, 43.820 },
- { 20, 28.412, 31.410, 34.170, 37.566, 45.315 },
- { 21, 29.615, 32.671, 35.479, 38.932, 46.797 },
- { 22, 30.813, 33.924, 36.781, 40.289, 48.268 },
- { 23, 32.007, 35.172, 38.076, 41.638, 49.728 },
- { 24, 33.196, 36.415, 39.364, 42.980, 51.179 },
- { 25, 34.382, 37.652, 40.646, 44.314, 52.620 },
- { 26, 35.563, 38.885, 41.923, 45.642, 54.052 },
- { 27, 36.741, 40.113, 43.195, 46.963, 55.476 },
- { 28, 37.916, 41.337, 44.461, 48.278, 56.892 },
- { 29, 39.087, 42.557, 45.722, 49.588, 58.301 },
- { 30, 40.256, 43.773, 46.979, 50.892, 59.703 },
- { 31, 41.422, 44.985, 48.232, 52.191, 61.098 },
- { 32, 42.585, 46.194, 49.480, 53.486, 62.487 },
- { 33, 43.745, 47.400, 50.725, 54.776, 63.870 },
- { 34, 44.903, 48.602, 51.966, 56.061, 65.247 },
- { 35, 46.059, 49.802, 53.203, 57.342, 66.619 },
- { 36, 47.212, 50.998, 54.437, 58.619, 67.985 },
- { 37, 48.363, 52.192, 55.668, 59.893, 69.347 },
- { 38, 49.513, 53.384, 56.896, 61.162, 70.703 },
- { 39, 50.660, 54.572, 58.120, 62.428, 72.055 },
- { 40, 51.805, 55.758, 59.342, 63.691, 73.402 },
- { 41, 52.949, 56.942, 60.561, 64.950, 74.745 },
- { 42, 54.090, 58.124, 61.777, 66.206, 76.084 },
- { 43, 55.230, 59.304, 62.990, 67.459, 77.419 },
- { 44, 56.369, 60.481, 64.201, 68.710, 78.750 },
- { 45, 57.505, 61.656, 65.410, 69.957, 80.077 },
- { 46, 58.641, 62.830, 66.617, 71.201, 81.400 },
- { 47, 59.774, 64.001, 67.821, 72.443, 82.720 },
- { 48, 60.907, 65.171, 69.023, 73.683, 84.037 },
- { 49, 62.038, 66.339, 70.222, 74.919, 85.351 },
- { 50, 63.167, 67.505, 71.420, 76.154, 86.661 },
- { 51, 64.295, 68.669, 72.616, 77.386, 87.968 },
- { 52, 65.422, 69.832, 73.810, 78.616, 89.272 },
- { 53, 66.548, 70.993, 75.002, 79.843, 90.573 },
- { 54, 67.673, 72.153, 76.192, 81.069, 91.872 },
- { 55, 68.796, 73.311, 77.380, 82.292, 93.168 },
- { 56, 69.919, 74.468, 78.567, 83.513, 94.461 },
- { 57, 71.040, 75.624, 79.752, 84.733, 95.751 },
- { 58, 72.160, 76.778, 80.936, 85.950, 97.039 },
- { 59, 73.279, 77.931, 82.117, 87.166, 98.324 },
- { 60, 74.397, 79.082, 83.298, 88.379, 99.607 },
- { 61, 75.514, 80.232, 84.476, 89.591, 100.888 },
- { 62, 76.630, 81.381, 85.654, 90.802, 102.166 },
- { 63, 77.745, 82.529, 86.830, 92.010, 103.442 },
- { 64, 78.860, 83.675, 88.004, 93.217, 104.716 },
- { 65, 79.973, 84.821, 89.177, 94.422, 105.988 },
- { 66, 81.085, 85.965, 90.349, 95.626, 107.258 },
- { 67, 82.197, 87.108, 91.519, 96.828, 108.526 },
- { 68, 83.308, 88.250, 92.689, 98.028, 109.791 },
- { 69, 84.418, 89.391, 93.856, 99.228, 111.055 },
- { 70, 85.527, 90.531, 95.023, 100.425, 112.317 },
- { 71, 86.635, 91.670, 96.189, 101.621, 113.577 },
- { 72, 87.743, 92.808, 97.353, 102.816, 114.835 },
- { 73, 88.850, 93.945, 98.516, 104.010, 116.092 },
- { 74, 89.956, 95.081, 99.678, 105.202, 117.346 },
- { 75, 91.061, 96.217, 100.839, 106.393, 118.599 },
- { 76, 92.166, 97.351, 101.999, 107.583, 119.850 },
- { 77, 93.270, 98.484, 103.158, 108.771, 121.100 },
- { 78, 94.374, 99.617, 104.316, 109.958, 122.348 },
- { 79, 95.476, 100.749, 105.473, 111.144, 123.594 },
- { 80, 96.578, 101.879, 106.629, 112.329, 124.839 },
- { 81, 97.680, 103.010, 107.783, 113.512, 126.083 },
- { 82, 98.780, 104.139, 108.937, 114.695, 127.324 },
- { 83, 99.880, 105.267, 110.090, 115.876, 128.565 },
- { 84, 100.980, 106.395, 111.242, 117.057, 129.804 },
- { 85, 102.079, 107.522, 112.393, 118.236, 131.041 },
- { 86, 103.177, 108.648, 113.544, 119.414, 132.277 },
- { 87, 104.275, 109.773, 114.693, 120.591, 133.512 },
- { 88, 105.372, 110.898, 115.841, 121.767, 134.746 },
- { 89, 106.469, 112.022, 116.989, 122.942, 135.978 },
- { 90, 107.565, 113.145, 118.136, 124.116, 137.208 },
- { 91, 108.661, 114.268, 119.282, 125.289, 138.438 },
- { 92, 109.756, 115.390, 120.427, 126.462, 139.666 },
- { 93, 110.850, 116.511, 121.571, 127.633, 140.893 },
- { 94, 111.944, 117.632, 122.715, 128.803, 142.119 },
- { 95, 113.038, 118.752, 123.858, 129.973, 143.344 },
- { 96, 114.131, 119.871, 125.000, 131.141, 144.567 },
- { 97, 115.223, 120.990, 126.141, 132.309, 145.789 },
- { 98, 116.315, 122.108, 127.282, 133.476, 147.010 },
- { 99, 117.407, 123.225, 128.422, 134.642, 148.230 },
- { 100, 118.498, 124.342, 129.561, 135.807, 149.449 },
- {100, 118.498, 124.342, 129.561, 135.807, 149.449 }
- };
- double lower_critical_values[][6] = {
- /*
- These have fewer than 4 significant digits, leave them out
- of the tests for now:
- 1., .016, .004, .001, .000, .000,
- 2., .211, .103, .051, .020, .002,
- 3., .584, .352, .216, .115, .024,
- 4., 1.064, .711, .484, .297, .091,
- 5., 1.610, 1.145, .831, .554, .210,
- 6., 2.204, 1.635, 1.237, .872, .381,
- 7., 2.833, 2.167, 1.690, 1.239, .598,
- 8., 3.490, 2.733, 2.180, 1.646, .857,
- */
- { 9., 4.168, 3.325, 2.700, 2.088, 1.152 },
- { 10., 4.865, 3.940, 3.247, 2.558, 1.479 },
- { 11., 5.578, 4.575, 3.816, 3.053, 1.834 },
- { 12., 6.304, 5.226, 4.404, 3.571, 2.214 },
- { 13., 7.042, 5.892, 5.009, 4.107, 2.617 },
- { 14., 7.790, 6.571, 5.629, 4.660, 3.041 },
- { 15., 8.547, 7.261, 6.262, 5.229, 3.483 },
- { 16., 9.312, 7.962, 6.908, 5.812, 3.942 },
- { 17., 10.085, 8.672, 7.564, 6.408, 4.416 },
- { 18., 10.865, 9.390, 8.231, 7.015, 4.905 },
- { 19., 11.651, 10.117, 8.907, 7.633, 5.407 },
- { 20., 12.443, 10.851, 9.591, 8.260, 5.921 },
- { 21., 13.240, 11.591, 10.283, 8.897, 6.447 },
- { 22., 14.041, 12.338, 10.982, 9.542, 6.983 },
- { 23., 14.848, 13.091, 11.689, 10.196, 7.529 },
- { 24., 15.659, 13.848, 12.401, 10.856, 8.085 },
- { 25., 16.473, 14.611, 13.120, 11.524, 8.649 },
- { 26., 17.292, 15.379, 13.844, 12.198, 9.222 },
- { 27., 18.114, 16.151, 14.573, 12.879, 9.803 },
- { 28., 18.939, 16.928, 15.308, 13.565, 10.391 },
- { 29., 19.768, 17.708, 16.047, 14.256, 10.986 },
- { 30., 20.599, 18.493, 16.791, 14.953, 11.588 },
- { 31., 21.434, 19.281, 17.539, 15.655, 12.196 },
- { 32., 22.271, 20.072, 18.291, 16.362, 12.811 },
- { 33., 23.110, 20.867, 19.047, 17.074, 13.431 },
- { 34., 23.952, 21.664, 19.806, 17.789, 14.057 },
- { 35., 24.797, 22.465, 20.569, 18.509, 14.688 },
- { 36., 25.643, 23.269, 21.336, 19.233, 15.324 },
- { 37., 26.492, 24.075, 22.106, 19.960, 15.965 },
- { 38., 27.343, 24.884, 22.878, 20.691, 16.611 },
- { 39., 28.196, 25.695, 23.654, 21.426, 17.262 },
- { 40., 29.051, 26.509, 24.433, 22.164, 17.916 },
- { 41., 29.907, 27.326, 25.215, 22.906, 18.575 },
- { 42., 30.765, 28.144, 25.999, 23.650, 19.239 },
- { 43., 31.625, 28.965, 26.785, 24.398, 19.906 },
- { 44., 32.487, 29.787, 27.575, 25.148, 20.576 },
- { 45., 33.350, 30.612, 28.366, 25.901, 21.251 },
- { 46., 34.215, 31.439, 29.160, 26.657, 21.929 },
- { 47., 35.081, 32.268, 29.956, 27.416, 22.610 },
- { 48., 35.949, 33.098, 30.755, 28.177, 23.295 },
- { 49., 36.818, 33.930, 31.555, 28.941, 23.983 },
- { 50., 37.689, 34.764, 32.357, 29.707, 24.674 },
- { 51., 38.560, 35.600, 33.162, 30.475, 25.368 },
- { 52., 39.433, 36.437, 33.968, 31.246, 26.065 },
- { 53., 40.308, 37.276, 34.776, 32.018, 26.765 },
- { 54., 41.183, 38.116, 35.586, 32.793, 27.468 },
- { 55., 42.060, 38.958, 36.398, 33.570, 28.173 },
- { 56., 42.937, 39.801, 37.212, 34.350, 28.881 },
- { 57., 43.816, 40.646, 38.027, 35.131, 29.592 },
- { 58., 44.696, 41.492, 38.844, 35.913, 30.305 },
- { 59., 45.577, 42.339, 39.662, 36.698, 31.020 },
- { 60., 46.459, 43.188, 40.482, 37.485, 31.738 },
- { 61., 47.342, 44.038, 41.303, 38.273, 32.459 },
- { 62., 48.226, 44.889, 42.126, 39.063, 33.181 },
- { 63., 49.111, 45.741, 42.950, 39.855, 33.906 },
- { 64., 49.996, 46.595, 43.776, 40.649, 34.633 },
- { 65., 50.883, 47.450, 44.603, 41.444, 35.362 },
- { 66., 51.770, 48.305, 45.431, 42.240, 36.093 },
- { 67., 52.659, 49.162, 46.261, 43.038, 36.826 },
- { 68., 53.548, 50.020, 47.092, 43.838, 37.561 },
- { 69., 54.438, 50.879, 47.924, 44.639, 38.298 },
- { 70., 55.329, 51.739, 48.758, 45.442, 39.036 },
- { 71., 56.221, 52.600, 49.592, 46.246, 39.777 },
- { 72., 57.113, 53.462, 50.428, 47.051, 40.519 },
- { 73., 58.006, 54.325, 51.265, 47.858, 41.264 },
- { 74., 58.900, 55.189, 52.103, 48.666, 42.010 },
- { 75., 59.795, 56.054, 52.942, 49.475, 42.757 },
- { 76., 60.690, 56.920, 53.782, 50.286, 43.507 },
- { 77., 61.586, 57.786, 54.623, 51.097, 44.258 },
- { 78., 62.483, 58.654, 55.466, 51.910, 45.010 },
- { 79., 63.380, 59.522, 56.309, 52.725, 45.764 },
- { 80., 64.278, 60.391, 57.153, 53.540, 46.520 },
- { 81., 65.176, 61.261, 57.998, 54.357, 47.277 },
- { 82., 66.076, 62.132, 58.845, 55.174, 48.036 },
- { 83., 66.976, 63.004, 59.692, 55.993, 48.796 },
- { 84., 67.876, 63.876, 60.540, 56.813, 49.557 },
- { 85., 68.777, 64.749, 61.389, 57.634, 50.320 },
- { 86., 69.679, 65.623, 62.239, 58.456, 51.085 },
- { 87., 70.581, 66.498, 63.089, 59.279, 51.850 },
- { 88., 71.484, 67.373, 63.941, 60.103, 52.617 },
- { 89., 72.387, 68.249, 64.793, 60.928, 53.386 },
- { 90., 73.291, 69.126, 65.647, 61.754, 54.155 },
- { 91., 74.196, 70.003, 66.501, 62.581, 54.926 },
- { 92., 75.100, 70.882, 67.356, 63.409, 55.698 },
- { 93., 76.006, 71.760, 68.211, 64.238, 56.472 },
- { 94., 76.912, 72.640, 69.068, 65.068, 57.246 },
- { 95., 77.818, 73.520, 69.925, 65.898, 58.022 },
- { 96., 78.725, 74.401, 70.783, 66.730, 58.799 },
- { 97., 79.633, 75.282, 71.642, 67.562, 59.577 },
- { 98., 80.541, 76.164, 72.501, 68.396, 60.356 },
- { 99., 81.449, 77.046, 73.361, 69.230, 61.137 },
- {100., 82.358, 77.929, 74.222, 70.065, 61.918 }
- };
- template <class RealType> // Any floating-point type RealType.
- void test_spots(RealType T)
- {
- // Basic sanity checks, test data is to three decimal places only
- // so set tolerance to 0.001 expressed as a persentage.
- RealType tolerance = 0.001f * 100;
- cout << "Tolerance for type " << typeid(T).name() << " is " << tolerance << " %" << endl;
- using boost::math::chi_squared_distribution;
- using ::boost::math::chi_squared;
- using ::boost::math::cdf;
- using ::boost::math::pdf;
- for(unsigned i = 0; i < sizeof(upper_critical_values) / sizeof(upper_critical_values[0]); ++i)
- {
- test_spot(
- static_cast<RealType>(upper_critical_values[i][0]), // degrees of freedom
- static_cast<RealType>(upper_critical_values[i][1]), // Chi Squared statistic
- static_cast<RealType>(1 - q[0]), // Probability of result (CDF), P
- static_cast<RealType>(q[0]), // Q = 1 - P
- tolerance);
- test_spot(
- static_cast<RealType>(upper_critical_values[i][0]), // degrees of freedom
- static_cast<RealType>(upper_critical_values[i][2]), // Chi Squared statistic
- static_cast<RealType>(1 - q[1]), // Probability of result (CDF), P
- static_cast<RealType>(q[1]), // Q = 1 - P
- tolerance);
- test_spot(
- static_cast<RealType>(upper_critical_values[i][0]), // degrees of freedom
- static_cast<RealType>(upper_critical_values[i][3]), // Chi Squared statistic
- static_cast<RealType>(1 - q[2]), // Probability of result (CDF), P
- static_cast<RealType>(q[2]), // Q = 1 - P
- tolerance);
- test_spot(
- static_cast<RealType>(upper_critical_values[i][0]), // degrees of freedom
- static_cast<RealType>(upper_critical_values[i][4]), // Chi Squared statistic
- static_cast<RealType>(1 - q[3]), // Probability of result (CDF), P
- static_cast<RealType>(q[3]), // Q = 1 - P
- tolerance);
- test_spot(
- static_cast<RealType>(upper_critical_values[i][0]), // degrees of freedom
- static_cast<RealType>(upper_critical_values[i][5]), // Chi Squared statistic
- static_cast<RealType>(1 - q[4]), // Probability of result (CDF), P
- static_cast<RealType>(q[4]), // Q = 1 - P
- tolerance);
- }
- for(unsigned i = 0; i < sizeof(lower_critical_values) / sizeof(lower_critical_values[0]); ++i)
- {
- test_spot(
- static_cast<RealType>(lower_critical_values[i][0]), // degrees of freedom
- static_cast<RealType>(lower_critical_values[i][1]), // Chi Squared statistic
- static_cast<RealType>(q[0]), // Probability of result (CDF), P
- static_cast<RealType>(1 - q[0]), // Q = 1 - P
- tolerance);
- test_spot(
- static_cast<RealType>(lower_critical_values[i][0]), // degrees of freedom
- static_cast<RealType>(lower_critical_values[i][2]), // Chi Squared statistic
- static_cast<RealType>(q[1]), // Probability of result (CDF), P
- static_cast<RealType>(1 - q[1]), // Q = 1 - P
- tolerance);
- test_spot(
- static_cast<RealType>(lower_critical_values[i][0]), // degrees of freedom
- static_cast<RealType>(lower_critical_values[i][3]), // Chi Squared statistic
- static_cast<RealType>(q[2]), // Probability of result (CDF), P
- static_cast<RealType>(1 - q[2]), // Q = 1 - P
- tolerance);
- test_spot(
- static_cast<RealType>(lower_critical_values[i][0]), // degrees of freedom
- static_cast<RealType>(lower_critical_values[i][4]), // Chi Squared statistic
- static_cast<RealType>(q[3]), // Probability of result (CDF), P
- static_cast<RealType>(1 - q[3]), // Q = 1 - P
- tolerance);
- test_spot(
- static_cast<RealType>(lower_critical_values[i][0]), // degrees of freedom
- static_cast<RealType>(lower_critical_values[i][5]), // Chi Squared statistic
- static_cast<RealType>(q[4]), // Probability of result (CDF), P
- static_cast<RealType>(1 - q[4]), // Q = 1 - P
- tolerance);
- }
- RealType tol2 = boost::math::tools::epsilon<RealType>() * 5 * 100; // 5 eps as a percentage
- chi_squared_distribution<RealType> dist(static_cast<RealType>(8));
- RealType x = 7;
- using namespace std; // ADL of std names.
- // mean:
- BOOST_CHECK_CLOSE(
- mean(dist)
- , static_cast<RealType>(8), tol2);
- // variance:
- BOOST_CHECK_CLOSE(
- variance(dist)
- , static_cast<RealType>(16), tol2);
- // std deviation:
- BOOST_CHECK_CLOSE(
- standard_deviation(dist)
- , static_cast<RealType>(4), tol2);
- // hazard:
- BOOST_CHECK_CLOSE(
- hazard(dist, x)
- , pdf(dist, x) / cdf(complement(dist, x)), tol2);
- // cumulative hazard:
- BOOST_CHECK_CLOSE(
- chf(dist, x)
- , -log(cdf(complement(dist, x))), tol2);
- // coefficient_of_variation:
- BOOST_CHECK_CLOSE(
- coefficient_of_variation(dist)
- , standard_deviation(dist) / mean(dist), tol2);
- // mode:
- BOOST_CHECK_CLOSE(
- mode(dist)
- , static_cast<RealType>(6), tol2);
- BOOST_CHECK_CLOSE(
- median(dist),
- quantile(
- chi_squared_distribution<RealType>(static_cast<RealType>(8)),
- static_cast<RealType>(0.5)), static_cast<RealType>(tol2));
- // skewness:
- BOOST_CHECK_CLOSE(
- skewness(dist)
- , static_cast<RealType>(1), tol2);
- // kurtosis:
- BOOST_CHECK_CLOSE(
- kurtosis(dist)
- , static_cast<RealType>(4.5), tol2);
- // kurtosis excess:
- BOOST_CHECK_CLOSE(
- kurtosis_excess(dist)
- , static_cast<RealType>(1.5), tol2);
- // special cases:
- BOOST_MATH_CHECK_THROW(
- pdf(
- chi_squared_distribution<RealType>(static_cast<RealType>(1)),
- static_cast<RealType>(0)), std::overflow_error
- );
- BOOST_CHECK_EQUAL(
- pdf(chi_squared_distribution<RealType>(2), static_cast<RealType>(0))
- , static_cast<RealType>(0.5f));
- BOOST_CHECK_EQUAL(
- pdf(chi_squared_distribution<RealType>(3), static_cast<RealType>(0))
- , static_cast<RealType>(0.0f));
- BOOST_CHECK_EQUAL(
- cdf(chi_squared_distribution<RealType>(1), static_cast<RealType>(0))
- , static_cast<RealType>(0.0f));
- BOOST_CHECK_EQUAL(
- cdf(chi_squared_distribution<RealType>(2), static_cast<RealType>(0))
- , static_cast<RealType>(0.0f));
- BOOST_CHECK_EQUAL(
- cdf(chi_squared_distribution<RealType>(3), static_cast<RealType>(0))
- , static_cast<RealType>(0.0f));
- BOOST_CHECK_EQUAL(
- cdf(complement(chi_squared_distribution<RealType>(1), static_cast<RealType>(0)))
- , static_cast<RealType>(1));
- BOOST_CHECK_EQUAL(
- cdf(complement(chi_squared_distribution<RealType>(2), static_cast<RealType>(0)))
- , static_cast<RealType>(1));
- BOOST_CHECK_EQUAL(
- cdf(complement(chi_squared_distribution<RealType>(3), static_cast<RealType>(0)))
- , static_cast<RealType>(1));
- BOOST_MATH_CHECK_THROW(
- pdf(
- chi_squared_distribution<RealType>(static_cast<RealType>(-1)),
- static_cast<RealType>(1)), std::domain_error
- );
- BOOST_MATH_CHECK_THROW(
- pdf(
- chi_squared_distribution<RealType>(static_cast<RealType>(8)),
- static_cast<RealType>(-1)), std::domain_error
- );
- BOOST_MATH_CHECK_THROW(
- cdf(
- chi_squared_distribution<RealType>(static_cast<RealType>(-1)),
- static_cast<RealType>(1)), std::domain_error
- );
- BOOST_MATH_CHECK_THROW(
- cdf(
- chi_squared_distribution<RealType>(static_cast<RealType>(8)),
- static_cast<RealType>(-1)), std::domain_error
- );
- BOOST_MATH_CHECK_THROW(
- cdf(complement(
- chi_squared_distribution<RealType>(static_cast<RealType>(-1)),
- static_cast<RealType>(1))), std::domain_error
- );
- BOOST_MATH_CHECK_THROW(
- cdf(complement(
- chi_squared_distribution<RealType>(static_cast<RealType>(8)),
- static_cast<RealType>(-1))), std::domain_error
- );
- BOOST_MATH_CHECK_THROW(
- quantile(
- chi_squared_distribution<RealType>(static_cast<RealType>(-1)),
- static_cast<RealType>(0.5)), std::domain_error
- );
- BOOST_MATH_CHECK_THROW(
- quantile(
- chi_squared_distribution<RealType>(static_cast<RealType>(8)),
- static_cast<RealType>(-1)), std::domain_error
- );
- BOOST_MATH_CHECK_THROW(
- quantile(
- chi_squared_distribution<RealType>(static_cast<RealType>(8)),
- static_cast<RealType>(1.1)), std::domain_error
- );
- BOOST_MATH_CHECK_THROW(
- quantile(complement(
- chi_squared_distribution<RealType>(static_cast<RealType>(-1)),
- static_cast<RealType>(0.5))), std::domain_error
- );
- BOOST_MATH_CHECK_THROW(
- quantile(complement(
- chi_squared_distribution<RealType>(static_cast<RealType>(8)),
- static_cast<RealType>(-1))), std::domain_error
- );
- BOOST_MATH_CHECK_THROW(
- quantile(complement(
- chi_squared_distribution<RealType>(static_cast<RealType>(8)),
- static_cast<RealType>(1.1))), std::domain_error
- );
- // This first test value is taken from an example here:
- // http://www.itl.nist.gov/div898/handbook/prc/section2/prc232.htm
- // Subsequent tests just test our empirically generated values, they
- // catch regressions, but otherwise aren't worth much.
- BOOST_CHECK_EQUAL(
- ceil(chi_squared_distribution<RealType>::find_degrees_of_freedom(
- 55, 0.05f, 0.01f, 100)), static_cast<RealType>(170));
- BOOST_CHECK_EQUAL(
- ceil(chi_squared_distribution<RealType>::find_degrees_of_freedom(
- 10, 0.05f, 0.01f, 100)), static_cast<RealType>(3493));
- BOOST_CHECK_EQUAL(
- ceil(chi_squared_distribution<RealType>::find_degrees_of_freedom(
- -55, 0.05f, 0.01f, 100)), static_cast<RealType>(49));
- BOOST_CHECK_EQUAL(
- ceil(chi_squared_distribution<RealType>::find_degrees_of_freedom(
- -10, 0.05f, 0.01f, 100)), static_cast<RealType>(2826));
- check_out_of_range<boost::math::chi_squared_distribution<RealType> >(1); // (All) valid constructor parameter values.
- } // template <class RealType>void test_spots(RealType)
- BOOST_AUTO_TEST_CASE( test_main )
- {
- BOOST_MATH_CONTROL_FP;
- // Check that can generate chi_squared distribution using the two convenience methods:
- chi_squared_distribution<> mychisqr(8);
- chi_squared mychisqr2(8);
- // Basic sanity-check spot values.
- // (Parameter value, arbitrarily zero, only communicates the floating point type).
- test_spots(0.0F); // Test float.
- test_spots(0.0); // Test double.
- #ifndef BOOST_MATH_NO_LONG_DOUBLE_MATH_FUNCTIONS
- test_spots(0.0L); // Test long double.
- #if !defined(BOOST_MATH_NO_REAL_CONCEPT_TESTS)
- test_spots(boost::math::concepts::real_concept(0.)); // Test real concept.
- #endif
- #endif
- } // BOOST_AUTO_TEST_CASE( test_main )
- /*
- Output:
- Description: Autorun "J:\Cpp\MathToolkit\test\Math_test\Debug\test_chi_squared.exe"
- Running 1 test case...
- Tolerance for type float is 0.1 %
- Tolerance for type double is 0.1 %
- Tolerance for type long double is 0.1 %
- Tolerance for type class boost::math::concepts::real_concept is 0.1 %
- */
|