fix tests and bugs revealed by new tests

This commit is contained in:
Adrian Mariano
2021-10-01 23:57:07 -04:00
parent a5ae4879be
commit d66c1929a5
2 changed files with 16 additions and 4 deletions

View File

@@ -368,6 +368,17 @@ module test_gaussian_rands() {
assert_equal(len(nums3), 1000);
assert_equal(nums1, nums3);
assert(nums1!=nums2);
R = [[4,2],[2,17]];
data = gaussian_rands(100000,[0,0],R,seed=49);
assert(approx(mean(data), [0,0], eps=1e-2));
assert(approx(transpose(data)*data/len(data), R, eps=2e-2));
R2 = [[4,2,-1],[2,17,4],[-1,4,11]];
data3 = gaussian_rands(100000,[1,2,3],R2,seed=97);
assert(approx(mean(data3),[1,2,3], eps=1e-2));
cdata = move(-mean(data3),data3);
assert(approx(transpose(cdata)*cdata/len(cdata),R2,eps=.1));
}
test_gaussian_rands();