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
65
66
67
68
69
70
71
72
73
74
75
/* eslint no-shadow: 0 */
const test = require("tap").test;const ss = require("../");
test("sample kurtosis", function (t) {    t.test("the kurtosis of an empty sample is null", function (t) {        const data = [];        t.throws(function () {            ss.sampleKurtosis(data);        });        t.end();    });
    t.test("the kurtosis of an sample with one number is null", function (t) {        const data = [1];        t.throws(function () {            ss.sampleKurtosis(data);        });        t.end();    });
    t.test("the kurtosis of an sample with two numbers is null", function (t) {        const data = [1, 2];        t.throws(function () {            ss.sampleKurtosis(data);        });        t.end();    });
    t.test(        "the kurtosis of an sample with three numbers is null",        function (t) {            const data = [1, 2, 3];            t.throws(function () {                ss.sampleKurtosis(data);            });            t.end();        }    );
    t.test("can calculate the kurtosis of SAS example 1", function (t) {        // Data and answer taken from KURTOSIS function documentation at        // https://support.sas.com/documentation/cdl/en/lrdict/64316/HTML/default/viewer.htm#a000245906.htm        const data = [5, 9, 3, 6];        t.equal(+ss.sampleKurtosis(data).toPrecision(10), 0.928);        t.end();    });
    t.test("can calculate the kurtosis of SAS example 2", function (t) {        // Data and answer taken from KURTOSIS function documentation at        // https://support.sas.com/documentation/cdl/en/lrdict/64316/HTML/default/viewer.htm#a000245906.htm        const data = [5, 8, 9, 6];        t.equal(+ss.sampleKurtosis(data).toPrecision(10), -3.3);        t.end();    });
    t.test("can calculate the kurtosis of SAS example 3", function (t) {        // Data and answer taken from KURTOSIS function documentation at        // https://support.sas.com/documentation/cdl/en/lrdict/64316/HTML/default/viewer.htm#a000245906.htm        const data = [8, 9, 6, 1];        t.equal(+ss.sampleKurtosis(data).toPrecision(10), 1.5);        t.end();    });
    t.test("can calculate the kurtosis of SAS example 4", function (t) {        // Data and answer taken from KURTOSIS function documentation at        // https://support.sas.com/documentation/cdl/en/lrdict/64316/HTML/default/viewer.htm#a000245906.htm        const data = [8, 1, 6, 1];        t.equal(+ss.sampleKurtosis(data).toPrecision(10), -4.483379501);        t.end();    });    t.end();});