Skip to content
Draft
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Original file line number Diff line number Diff line change
Expand Up @@ -22,10 +22,9 @@

var tape = require( 'tape' );
var isnan = require( '@stdlib/math/base/assert/is-nan' );
var abs = require( '@stdlib/math/base/special/abs' );
var isAlmostSameValue = require( '@stdlib/assert/is-almost-same-value' );
var PINF = require( '@stdlib/constants/float64/pinf' );
var NINF = require( '@stdlib/constants/float64/ninf' );
var EPS = require( '@stdlib/constants/float64/eps' );
var factory = require( './../lib/factory.js' );


Expand Down Expand Up @@ -221,9 +220,7 @@ tape( 'if provided `d1 <= 0`, the created function always returns `NaN`', functi

tape( 'the created function evaluates the pdf for `x` given large `d1` and `d2` (tested against Julia)', function test( t ) {
var expected;
var delta;
var pdf;
var tol;
var d1;
var d2;
var x;
Expand All @@ -237,22 +234,14 @@ tape( 'the created function evaluates the pdf for `x` given large `d1` and `d2`
for ( i = 0; i < x.length; i++ ) {
pdf = factory( d1[i], d2[i] );
y = pdf( x[i] );
if ( y === expected[i] ) {
t.strictEqual( y, expected[i], 'x: '+x[i]+', d1: '+d1[i]+', d2: '+d2[i]+', y: '+y+', expected: '+expected[i] );
} else {
delta = abs( y - expected[ i ] );
tol = 2300.0 * EPS * abs( expected[ i ] );
t.ok( delta <= tol, 'within tolerance. x: '+x[ i ]+'. d1: '+d1[i]+'. d2: '+d2[i]+'. y: '+y+'. E: '+expected[ i ]+'. Δ: '+delta+'. tol: '+tol+'.' );
}
t.strictEqual( isAlmostSameValue( y, expected[ i ], 4003 ), true, 'returns expected value' );
}
t.end();
});

tape( 'the created function evaluates the pdf for `x` given a large parameter `d1` (tested against Julia)', function test( t ) {
var expected;
var delta;
var pdf;
var tol;
var d1;
var d2;
var x;
Expand All @@ -266,22 +255,14 @@ tape( 'the created function evaluates the pdf for `x` given a large parameter `d
for ( i = 0; i < x.length; i++ ) {
pdf = factory( d1[i], d2[i] );
y = pdf( x[i] );
if ( y === expected[i] ) {
t.strictEqual( y, expected[i], 'x: '+x[i]+', d1: '+d1[i]+', d2: '+d2[i]+', y: '+y+', expected: '+expected[i] );
} else {
delta = abs( y - expected[ i ] );
tol = 150.0 * EPS * abs( expected[ i ] );
t.ok( delta <= tol, 'within tolerance. x: '+x[ i ]+'. d1: '+d1[i]+'. d2: '+d2[i]+'. y: '+y+'. E: '+expected[ i ]+'. Δ: '+delta+'. tol: '+tol+'.' );
}
t.strictEqual( isAlmostSameValue( y, expected[ i ], 95 ), true, 'returns expected value' );
}
t.end();
});

tape( 'the created function evaluates the pdf for `x` given a large parameter `d2` (tested against Julia)', function test( t ) {
var expected;
var delta;
var pdf;
var tol;
var d1;
var d2;
var x;
Expand All @@ -295,22 +276,14 @@ tape( 'the created function evaluates the pdf for `x` given a large parameter `d
for ( i = 0; i < x.length; i++ ) {
pdf = factory( d1[i], d2[i] );
y = pdf( x[i] );
if ( y === expected[i] ) {
t.strictEqual( y, expected[i], 'x: '+x[i]+', d1: '+d1[i]+', d2: '+d2[i]+', y: '+y+', expected: '+expected[i] );
} else {
delta = abs( y - expected[ i ] );
tol = 1800.0 * EPS * abs( expected[ i ] );
t.ok( delta <= tol, 'within tolerance. x: '+x[ i ]+'. d1: '+d1[i]+'. d2: '+d2[i]+'. y: '+y+'. E: '+expected[ i ]+'. Δ: '+delta+'. tol: '+tol+'.' );
}
t.strictEqual( isAlmostSameValue( y, expected[ i ], 103 ), true, 'returns expected value' );
}
t.end();
});

tape( 'the created function evaluates the pdf for `x` given large `d1` and `d2` (tested against the Boost C++ library)', function test( t ) {
var expected;
var delta;
var pdf;
var tol;
var d1;
var d2;
var x;
Expand All @@ -324,22 +297,14 @@ tape( 'the created function evaluates the pdf for `x` given large `d1` and `d2`
for ( i = 0; i < x.length; i++ ) {
pdf = factory( d1[i], d2[i] );
y = pdf( x[i] );
if ( y === expected[i] ) {
t.strictEqual( y, expected[i], 'x: '+x[i]+', d1: '+d1[i]+', d2: '+d2[i]+', y: '+y+', expected: '+expected[i] );
} else {
delta = abs( y - expected[ i ] );
tol = 150.0 * EPS * abs( expected[ i ] );
t.ok( delta <= tol, 'within tolerance. x: '+x[ i ]+'. d1: '+d1[i]+'. d2: '+d2[i]+'. y: '+y+'. E: '+expected[ i ]+'. Δ: '+delta+'. tol: '+tol+'.' );
}
t.strictEqual( isAlmostSameValue( y, expected[ i ], 148 ), true, 'returns expected value' );
}
t.end();
});

tape( 'the created function evaluates the pdf for `x` given a large parameter `d1` (tested against the Boost C++ library)', function test( t ) {
var expected;
var delta;
var pdf;
var tol;
var d1;
var d2;
var x;
Expand All @@ -353,22 +318,14 @@ tape( 'the created function evaluates the pdf for `x` given a large parameter `d
for ( i = 0; i < x.length; i++ ) {
pdf = factory( d1[i], d2[i] );
y = pdf( x[i] );
if ( y === expected[i] ) {
t.strictEqual( y, expected[i], 'x: '+x[i]+', d1: '+d1[i]+', d2: '+d2[i]+', y: '+y+', expected: '+expected[i] );
} else {
delta = abs( y - expected[ i ] );
tol = 100.0 * EPS * abs( expected[ i ] );
t.ok( delta <= tol, 'within tolerance. x: '+x[ i ]+'. d1: '+d1[i]+'. d2: '+d2[i]+'. y: '+y+'. E: '+expected[ i ]+'. Δ: '+delta+'. tol: '+tol+'.' );
}
t.strictEqual( isAlmostSameValue( y, expected[ i ], 105 ), true, 'returns expected value' );
}
t.end();
});

tape( 'the created function evaluates the pdf for `x` given a large parameter `d2` (tested against the Boost C++ library)', function test( t ) {
var expected;
var delta;
var pdf;
var tol;
var d1;
var d2;
var x;
Expand All @@ -382,13 +339,7 @@ tape( 'the created function evaluates the pdf for `x` given a large parameter `d
for ( i = 0; i < x.length; i++ ) {
pdf = factory( d1[i], d2[i] );
y = pdf( x[i] );
if ( y === expected[i] ) {
t.strictEqual( y, expected[i], 'x: '+x[i]+', d1: '+d1[i]+', d2: '+d2[i]+', y: '+y+', expected: '+expected[i] );
} else {
delta = abs( y - expected[ i ] );
tol = 1150.0 * EPS * abs( expected[ i ] );
t.ok( delta <= tol, 'within tolerance. x: '+x[ i ]+'. d1: '+d1[i]+'. d2: '+d2[i]+'. y: '+y+'. E: '+expected[ i ]+'. Δ: '+delta+'. tol: '+tol+'.' );
}
t.strictEqual( isAlmostSameValue( y, expected[ i ], 1285 ), true, 'returns expected value' );
}
t.end();
});
Original file line number Diff line number Diff line change
Expand Up @@ -181,11 +181,7 @@ tape( 'the function evaluates the pdf for `x` given large `d1` and `d2` (tested
d2 = bothLarge.d2;
for ( i = 0; i < x.length; i++ ) {
y = pdf( x[i], d1[i], d2[i] );
if ( y === expected[i] ) {
t.strictEqual( y, expected[i], 'x: '+x[i]+', d1: '+d1[i]+', d2: '+d2[i]+', y: '+y+', expected: '+expected[i] );
} else {
t.ok( isAlmostSameValue( y, expected[i], 5000 ), 'within tolerance. x: '+x[ i ]+'. d1: '+d1[i]+'. d2: '+d2[i]+'. y: '+y+'. E: '+expected[ i ]+'.' );
}
t.strictEqual( isAlmostSameValue( y, expected[ i ], 4003 ), true, 'returns expected value' );
}
t.end();
});
Expand All @@ -204,11 +200,7 @@ tape( 'the function evaluates the pdf for `x` given large parameter `d1` (tested
d2 = largeD1.d2;
for ( i = 0; i < x.length; i++ ) {
y = pdf( x[i], d1[i], d2[i] );
if ( y === expected[i] ) {
t.strictEqual( y, expected[i], 'x: '+x[i]+', d1: '+d1[i]+', d2: '+d2[i]+', y: '+y+', expected: '+expected[i] );
} else {
t.ok( isAlmostSameValue( y, expected[i], 2500 ), 'within tolerance. x: '+x[ i ]+'. d1: '+d1[i]+'. d2: '+d2[i]+'. y: '+y+'. E: '+expected[ i ]+'.' );
}
t.strictEqual( isAlmostSameValue( y, expected[ i ], 95 ), true, 'returns expected value' );
}
t.end();
});
Expand All @@ -227,11 +219,7 @@ tape( 'the function evaluates the pdf for `x` given large parameter `d2` (tested
d2 = largeD2.d2;
for ( i = 0; i < x.length; i++ ) {
y = pdf( x[i], d1[i], d2[i] );
if ( y === expected[i] ) {
t.strictEqual( y, expected[i], 'x: '+x[i]+', d1: '+d1[i]+', d2: '+d2[i]+', y: '+y+', expected: '+expected[i] );
} else {
t.ok( isAlmostSameValue( y, expected[i], 4000 ), 'within tolerance. x: '+x[ i ]+'. d1: '+d1[i]+'. d2: '+d2[i]+'. y: '+y+'. E: '+expected[ i ]+'.' );
}
t.strictEqual( isAlmostSameValue( y, expected[ i ], 103 ), true, 'returns expected value' );
}
t.end();
});
Expand All @@ -250,11 +238,7 @@ tape( 'the function evaluates the pdf for `x` given large `d1` and `d2` (tested
d2 = cppBothLarge.d2;
for ( i = 0; i < x.length; i++ ) {
y = pdf( x[i], d1[i], d2[i] );
if ( y === expected[i] ) {
t.strictEqual( y, expected[i], 'x: '+x[i]+', d1: '+d1[i]+', d2: '+d2[i]+', y: '+y+', expected: '+expected[i] );
} else {
t.ok( isAlmostSameValue( y, expected[i], 3000 ), 'within tolerance. x: '+x[ i ]+'. d1: '+d1[i]+'. d2: '+d2[i]+'. y: '+y+'. E: '+expected[ i ]+'.' );
}
t.strictEqual( isAlmostSameValue( y, expected[ i ], 148 ), true, 'returns expected value' );
}
t.end();
});
Expand All @@ -273,11 +257,7 @@ tape( 'the function evaluates the pdf for `x` given large parameter `d1` (tested
d2 = cppLargeD1.d2;
for ( i = 0; i < x.length; i++ ) {
y = pdf( x[i], d1[i], d2[i] );
if ( y === expected[i] ) {
t.strictEqual( y, expected[i], 'x: '+x[i]+', d1: '+d1[i]+', d2: '+d2[i]+', y: '+y+', expected: '+expected[i] );
} else {
t.ok( isAlmostSameValue( y, expected[i], 2500 ), 'within tolerance. x: '+x[ i ]+'. d1: '+d1[i]+'. d2: '+d2[i]+'. y: '+y+'. E: '+expected[ i ]+'.' );
}
t.strictEqual( isAlmostSameValue( y, expected[ i ], 105 ), true, 'returns expected value' );
}
t.end();
});
Expand All @@ -296,11 +276,7 @@ tape( 'the function evaluates the pdf for `x` given large parameter `d2` (tested
d2 = cppLargeD2.d2;
for ( i = 0; i < x.length; i++ ) {
y = pdf( x[i], d1[i], d2[i] );
if ( y === expected[i] ) {
t.strictEqual( y, expected[i], 'x: '+x[i]+', d1: '+d1[i]+', d2: '+d2[i]+', y: '+y+', expected: '+expected[i] );
} else {
t.ok( isAlmostSameValue( y, expected[i], 4000 ), 'within tolerance. x: '+x[ i ]+'. d1: '+d1[i]+'. d2: '+d2[i]+'. y: '+y+'. E: '+expected[ i ]+'.' );
}
t.strictEqual( isAlmostSameValue( y, expected[ i ], 1285 ), true, 'returns expected value' );
}
t.end();
});
63 changes: 7 additions & 56 deletions lib/node_modules/@stdlib/stats/base/dists/f/pdf/test/test.pdf.js
Original file line number Diff line number Diff line change
Expand Up @@ -22,10 +22,9 @@

var tape = require( 'tape' );
var isnan = require( '@stdlib/math/base/assert/is-nan' );
var abs = require( '@stdlib/math/base/special/abs' );
var isAlmostSameValue = require( '@stdlib/assert/is-almost-same-value' );
var PINF = require( '@stdlib/constants/float64/pinf' );
var NINF = require( '@stdlib/constants/float64/ninf' );
var EPS = require( '@stdlib/constants/float64/eps' );
var pdf = require( './../lib' );


Expand Down Expand Up @@ -155,8 +154,6 @@ tape( 'if provided `d1 > 2.0`, the function returns `0.0` when provided `0.0` fo

tape( 'the function evaluates the pdf for `x` given large `d1` and `d2` (tested against Julia)', function test( t ) {
var expected;
var delta;
var tol;
var d1;
var d2;
var x;
Expand All @@ -169,21 +166,13 @@ tape( 'the function evaluates the pdf for `x` given large `d1` and `d2` (tested
d2 = bothLarge.d2;
for ( i = 0; i < x.length; i++ ) {
y = pdf( x[i], d1[i], d2[i] );
if ( y === expected[i] ) {
t.strictEqual( y, expected[i], 'x: '+x[i]+', d1: '+d1[i]+', d2: '+d2[i]+', y: '+y+', expected: '+expected[i] );
} else {
delta = abs( y - expected[ i ] );
tol = 2300.0 * EPS * abs( expected[ i ] );
t.ok( delta <= tol, 'within tolerance. x: '+x[ i ]+'. d1: '+d1[i]+'. d2: '+d2[i]+'. y: '+y+'. E: '+expected[ i ]+'. Δ: '+delta+'. tol: '+tol+'.' );
}
t.strictEqual( isAlmostSameValue( y, expected[ i ], 4003 ), true, 'returns expected value' );
}
t.end();
});

tape( 'the function evaluates the pdf for `x` given large parameter `d1` (tested against Julia)', function test( t ) {
var expected;
var delta;
var tol;
var d1;
var d2;
var x;
Expand All @@ -196,21 +185,13 @@ tape( 'the function evaluates the pdf for `x` given large parameter `d1` (tested
d2 = largeD1.d2;
for ( i = 0; i < x.length; i++ ) {
y = pdf( x[i], d1[i], d2[i] );
if ( y === expected[i] ) {
t.strictEqual( y, expected[i], 'x: '+x[i]+', d1: '+d1[i]+', d2: '+d2[i]+', y: '+y+', expected: '+expected[i] );
} else {
delta = abs( y - expected[ i ] );
tol = 150.0 * EPS * abs( expected[ i ] );
t.ok( delta <= tol, 'within tolerance. x: '+x[ i ]+'. d1: '+d1[i]+'. d2: '+d2[i]+'. y: '+y+'. E: '+expected[ i ]+'. Δ: '+delta+'. tol: '+tol+'.' );
}
t.strictEqual( isAlmostSameValue( y, expected[ i ], 95 ), true, 'returns expected value' );
}
t.end();
});

tape( 'the function evaluates the pdf for `x` given large parameter `d2` (tested against Julia)', function test( t ) {
var expected;
var delta;
var tol;
var d1;
var d2;
var x;
Expand All @@ -223,21 +204,13 @@ tape( 'the function evaluates the pdf for `x` given large parameter `d2` (tested
d2 = largeD2.d2;
for ( i = 0; i < x.length; i++ ) {
y = pdf( x[i], d1[i], d2[i] );
if ( y === expected[i] ) {
t.strictEqual( y, expected[i], 'x: '+x[i]+', d1: '+d1[i]+', d2: '+d2[i]+', y: '+y+', expected: '+expected[i] );
} else {
delta = abs( y - expected[ i ] );
tol = 1800.0 * EPS * abs( expected[ i ] );
t.ok( delta <= tol, 'within tolerance. x: '+x[ i ]+'. d1: '+d1[i]+'. d2: '+d2[i]+'. y: '+y+'. E: '+expected[ i ]+'. Δ: '+delta+'. tol: '+tol+'.' );
}
t.strictEqual( isAlmostSameValue( y, expected[ i ], 103 ), true, 'returns expected value' );
}
t.end();
});

tape( 'the function evaluates the pdf for `x` given large `d1` and `d2` (tested against the Boost C++ library', function test( t ) {
var expected;
var delta;
var tol;
var d1;
var d2;
var x;
Expand All @@ -250,21 +223,13 @@ tape( 'the function evaluates the pdf for `x` given large `d1` and `d2` (tested
d2 = cppBothLarge.d2;
for ( i = 0; i < x.length; i++ ) {
y = pdf( x[i], d1[i], d2[i] );
if ( y === expected[i] ) {
t.strictEqual( y, expected[i], 'x: '+x[i]+', d1: '+d1[i]+', d2: '+d2[i]+', y: '+y+', expected: '+expected[i] );
} else {
delta = abs( y - expected[ i ] );
tol = 150.0 * EPS * abs( expected[ i ] );
t.ok( delta <= tol, 'within tolerance. x: '+x[ i ]+'. d1: '+d1[i]+'. d2: '+d2[i]+'. y: '+y+'. E: '+expected[ i ]+'. Δ: '+delta+'. tol: '+tol+'.' );
}
t.strictEqual( isAlmostSameValue( y, expected[ i ], 148 ), true, 'returns expected value' );
}
t.end();
});

tape( 'the function evaluates the pdf for `x` given large parameter `d1` (tested against the Boost C++ library)', function test( t ) {
var expected;
var delta;
var tol;
var d1;
var d2;
var x;
Expand All @@ -277,21 +242,13 @@ tape( 'the function evaluates the pdf for `x` given large parameter `d1` (tested
d2 = cppLargeD1.d2;
for ( i = 0; i < x.length; i++ ) {
y = pdf( x[i], d1[i], d2[i] );
if ( y === expected[i] ) {
t.strictEqual( y, expected[i], 'x: '+x[i]+', d1: '+d1[i]+', d2: '+d2[i]+', y: '+y+', expected: '+expected[i] );
} else {
delta = abs( y - expected[ i ] );
tol = 100.0 * EPS * abs( expected[ i ] );
t.ok( delta <= tol, 'within tolerance. x: '+x[ i ]+'. d1: '+d1[i]+'. d2: '+d2[i]+'. y: '+y+'. E: '+expected[ i ]+'. Δ: '+delta+'. tol: '+tol+'.' );
}
t.strictEqual( isAlmostSameValue( y, expected[ i ], 105 ), true, 'returns expected value' );
}
t.end();
});

tape( 'the function evaluates the pdf for `x` given large parameter `d2` (tested against the Boost C++ library)', function test( t ) {
var expected;
var delta;
var tol;
var d1;
var d2;
var x;
Expand All @@ -304,13 +261,7 @@ tape( 'the function evaluates the pdf for `x` given large parameter `d2` (tested
d2 = cppLargeD2.d2;
for ( i = 0; i < x.length; i++ ) {
y = pdf( x[i], d1[i], d2[i] );
if ( y === expected[i] ) {
t.strictEqual( y, expected[i], 'x: '+x[i]+', d1: '+d1[i]+', d2: '+d2[i]+', y: '+y+', expected: '+expected[i] );
} else {
delta = abs( y - expected[ i ] );
tol = 1150.0 * EPS * abs( expected[ i ] );
t.ok( delta <= tol, 'within tolerance. x: '+x[ i ]+'. d1: '+d1[i]+'. d2: '+d2[i]+'. y: '+y+'. E: '+expected[ i ]+'. Δ: '+delta+'. tol: '+tol+'.' );
}
t.strictEqual( isAlmostSameValue( y, expected[ i ], 1285 ), true, 'returns expected value' );
}
t.end();
});
Loading