1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
/*
* Copyright Nick Thompson, 2019
* 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)
*/
#include "math_unit_test.hpp"
#include <numeric>
#include <utility>
#include <random>
#include <boost/core/demangle.hpp>
#include <boost/math/statistics/anderson_darling.hpp>
#ifdef BOOST_HAS_FLOAT128
#include <boost/multiprecision/float128.hpp>
using boost::multiprecision::float128;
#endif
using boost::math::statistics::anderson_darling_normality_statistic;
void test_ad_normal_agreement_w_mathematica()
{
// To reproduce:
// data = RandomVariate[NormalDistribution[0.0, 1], 32];
// AndersonDarlingTest[data, NormalDistribution[0.0, 1.0], "TestStatistic"]
std::vector<double> v = {0.6018671202167422, 0.34935310534248165, -0.2975464874480147, 0.19075371678288966, 0.7871329594028097, 1.153968559452821,
-0.22255484635945819, 0.08509539017654276, -1.3495873906132927, 0.5579622886226612, -0.8781637835839865, 1.144016010880056,
0.3117638373078617, 1.2774825413798292, 0.24847416220730323, -0.5002468827503855, -0.23124277830160153, 0.1880980838556693,
-1.2249409521605903, 2.583585311795, -1.4237305768919715, -0.7613985266437971, -1.089096700141564, -1.2595396780059587,
-0.735507006841229, -0.6957024998691735, 0.24671590370045435, 0.24620128485023313, -2.4445908627621833, 0.1882647961008893,
1.8527432579288248, -0.1908629038857823, -1.6542624501251562, 1.414542907065601, 0.8188282235404601, -0.5040501225935047,
-1.634617885381599, -0.43608956281596023, -1.7347258501594351, 0.8387606547880405, 0.3554282034994122, -0.27872688042721255,
-1.6445047421517192, 1.0262620986278987, -0.14517030192098415, -0.15386932114942647, -0.13364750619758223, 0.27194802295714676,
-0.6396907621289796, 0.3390884293844603, -0.08298748318375798, -0.7165572035514544, -0.2580817977433051, -1.9250094572058072,
-0.07995578394716944, -1.146629910012214, -2.0053073148074665, -1.6745995591714353, 0.2973860474005926, -0.4981763213542575,
0.22190763958244972, 0.699111028057888, -1.1872952966557475, 0.6151420566782272};
double expected = 1.542329830419774;
std::sort(v.begin(), v.end());
double ADtest = anderson_darling_normality_statistic(v, 0.0, 1.0);
CHECK_ULP_CLOSE(expected, ADtest, 250);
double sigma = 2;
for (auto & x : v) {
x *= sigma;
}
ADtest = anderson_darling_normality_statistic(v, 0.0, sigma);
CHECK_ULP_CLOSE(expected, ADtest, 250);
double mu = 10;
for (auto & x : v) {
x += mu;
}
ADtest = anderson_darling_normality_statistic(v, mu, sigma);
CHECK_ULP_CLOSE(expected, ADtest, 250);
}
int main()
{
test_ad_normal_agreement_w_mathematica();
return boost::math::test::report_errors();
}
|
