2 -include_lib("eunit/include/eunit.hrl").
4 sum_test() -> ?assertEqual(20, stat:sum([2,4,6,8])).
6 mean_test() -> ?assertEqual(5.0, stat:mean([2,4,6,8])).
8 r_value_positive_test() -> ?assertEqual(
10 stat:r_value([{1,2},{2,4},{4,8}])).
12 % This test doesn't work because of round-off error
13 %r_value_negative_test() -> ?assertEqual(
15 % stat:r_value([{1,1},{2,0},{3,-1}])).
17 r_value_zero_test() -> ?assertEqual(
19 stat:r_value([{1,1},{2,2},{3,1}])).
21 frequency_test() -> ?assertEqual(
22 dict:from_list([{a,1},{b,2}]),
23 stat:frequency([a,b,b])).
25 frequencies_to_scatterplot_test() -> ?assertEqual(
27 stat:frequencies_to_scatterplot(
28 dict:from_list([{a,1},{b,1}]),
29 dict:from_list([{a,1},{c,1}]))).