/
test-math_dgr-ds.skewness.R
34 lines (28 loc) · 1.43 KB
/
test-math_dgr-ds.skewness.R
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
source("connection_to_datasets/init_testing_datasets.R")
source("definition_tests/def-ds.skewness.R")
context("ds.skewness::math_dgr::mean.median.mode::multiple")
test_that("skewness >0 & mode<median<mean or skewness<0 & mean<median<mode",
{
connect.all.datasets()
.test.skewness.mean.median.mode('D$INTEGER', method = 1)
.test.skewness.mean.median.mode('D$NON_NEGATIVE_INTEGER', method = 2)
.test.skewness.mean.median.mode('D$POSITIVE_INTEGER', method = 3)
#.test.skewness.mean.median.mode('D$NEGATIVE_INTEGER', method = 1)
#.test.skewness.mean.median.mode('D$NUMERIC', method = 2)
.test.skewness.mean.median.mode('D$NON_NEGATIVE_NUMERIC', method = 3)
.test.skewness.mean.median.mode('D$POSITIVE_NUMERIC', method = 1)
.test.skewness.mean.median.mode('D$NEGATIVE_NUMERIC', method = 2)
})
context("ds.skewness::math_dgr::Q1.Q2.Q3::multiple")
test_that("skewness >0 & Q3-Q2>Q2-Q1 or skewness<0 & Q3-Q2<Q2-Q1",
{
connect.all.datasets()
.test.skewness.Q1.Q2.Q3('D$INTEGER', method = 1)
.test.skewness.Q1.Q2.Q3('D$NON_NEGATIVE_INTEGER', method = 2)
.test.skewness.Q1.Q2.Q3('D$POSITIVE_INTEGER', method = 3)
.test.skewness.Q1.Q2.Q3('D$NEGATIVE_INTEGER', method = 1)
#.test.skewness.Q1.Q2.Q3('D$NUMERIC', method = 2)
.test.skewness.Q1.Q2.Q3('D$NON_NEGATIVE_NUMERIC', method = 3)
.test.skewness.Q1.Q2.Q3('D$POSITIVE_NUMERIC', method = 1)
.test.skewness.Q1.Q2.Q3('D$NEGATIVE_NUMERIC', method = 2)
})