Skip to content

Commit f6b06b5

Browse files
StuartWheaterStuartWheater
authored
Merge pull request #241 from LeireAbarrategui/v6.1-dev
ds.skewness expected value test
2 parents 03639c9 + 2189486 commit f6b06b5

4 files changed

Lines changed: 88 additions & 0 deletions

File tree

‎man/ds.skewness.pdf‎

150 KB
Binary file not shown.

‎tests/testthat/definition_tests/def-ds.skewness.R‎

Lines changed: 30 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,30 @@
1+
2+
3+
.test.skewness.combined <- function(variable.name,some.values,method)
4+
{
5+
skewness.local <- e1071::skewness(x = some.values, na.rm = TRUE, type = method)
6+
7+
skewness.server <- ds.skewness(x = variable.name, method = method, type = "combine")
8+
skewness.server <- round(as.numeric(skewness.server[[1]][1]), digits = 8)
9+
10+
expect_equal(skewness.server, skewness.local, tolerance = ds.test_env$tolerance)
11+
}
12+
13+
.test.skewness.split <- function(variable.name,some.values.1,some.values.2,some.values.3,method)
14+
{
15+
skewness.local.1 <- e1071::skewness(x = some.values.1, na.rm = TRUE, type = method)
16+
skewness.local.2 <- e1071::skewness(x = some.values.2, na.rm = TRUE, type = method)
17+
skewness.local.3 <- e1071::skewness(x = some.values.3, na.rm = TRUE, type = method)
18+
19+
20+
skewness.server <- ds.skewness(x = variable.name, method = method, type = "split")
21+
22+
skewness.server.1 <- round(as.numeric(skewness.server[[1]][1]), digits = 8)
23+
skewness.server.2 <- round(as.numeric(skewness.server[[1]][2]), digits = 8)
24+
skewness.server.3 <- round(as.numeric(skewness.server[[1]][3]), digits = 8)
25+
26+
expect_equal(skewness.server.1, skewness.local.1, tolerance = ds.test_env$tolerance)
27+
expect_equal(skewness.server.2, skewness.local.2, tolerance = ds.test_env$tolerance)
28+
expect_equal(skewness.server.3, skewness.local.3, tolerance = ds.test_env$tolerance)
29+
}
30+

‎tests/testthat/setup.R‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -14,6 +14,7 @@
1414
context("setup")
1515

1616
library(lme4)
17+
library(e1071)
1718

1819
library(DSOpal)
1920
library(DSLite)

‎tests/testthat/test-expt-ds.skewness.R‎

Lines changed: 57 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,57 @@
1+
#-------------------------------------------------------------------------------
2+
# Copyright (c) 2019-2020 University of Newcastle upon Tyne. All rights reserved.
3+
#
4+
# This program and the accompanying materials
5+
# are made available under the terms of the GNU Public License v3.0.
6+
#
7+
# You should have received a copy of the GNU General Public License
8+
# along with this program. If not, see <http://www.gnu.org/licenses/>.
9+
#-------------------------------------------------------------------------------
10+
11+
12+
13+
source("connection_to_datasets/init_testing_datasets.R")
14+
source("definition_tests/def-ds.skewness.R")
15+
16+
context("ds.skewness()::expt::combine::multiple")
17+
18+
test_that("combined data set",
19+
{
20+
connect.all.datasets()
21+
.test.skewness.combined('D$INTEGER',ds.test_env$local.values[,6], method = 1)
22+
.test.skewness.combined('D$NON_NEGATIVE_INTEGER',ds.test_env$local.values[,7], method = 1)
23+
.test.skewness.combined('D$POSITIVE_INTEGER',ds.test_env$local.values[,8], method = 1)
24+
.test.skewness.combined('D$NEGATIVE_INTEGER',ds.test_env$local.values[,9], method = 1)
25+
.test.skewness.combined('D$NUMERIC',ds.test_env$local.values[,10], method = 1)
26+
.test.skewness.combined('D$NON_NEGATIVE_NUMERIC',ds.test_env$local.values[,11], method = 1)
27+
.test.skewness.combined('D$POSITIVE_NUMERIC',ds.test_env$local.values[,12], method = 1)
28+
.test.skewness.combined('D$NEGATIVE_NUMERIC',ds.test_env$local.values[,13], method = 1)
29+
})
30+
31+
context("ds.skewness()::expt::split::multiple")
32+
test_that("split data set",
33+
{
34+
connect.all.datasets()
35+
.test.skewness.split('D$INTEGER',ds.test_env$local.values.1[,6],ds.test_env$local.values.2[,6],ds.test_env$local.values.3[,6], method = 2)
36+
.test.skewness.split('D$NON_NEGATIVE_INTEGER',ds.test_env$local.values.1[,7],ds.test_env$local.values.2[,7],ds.test_env$local.values.3[,7], method = 2)
37+
.test.skewness.split('D$POSITIVE_INTEGER',ds.test_env$local.values.1[,8],ds.test_env$local.values.2[,8],ds.test_env$local.values.3[,8], method = 2)
38+
.test.skewness.split('D$NEGATIVE_INTEGER',ds.test_env$local.values.1[,9],ds.test_env$local.values.2[,9],ds.test_env$local.values.3[,9], method = 2)
39+
.test.skewness.split('D$NUMERIC',ds.test_env$local.values.1[,10],ds.test_env$local.values.2[,10],ds.test_env$local.values.3[,10], method = 2)
40+
.test.skewness.split('D$NON_NEGATIVE_NUMERIC',ds.test_env$local.values.1[,11],ds.test_env$local.values.2[,11],ds.test_env$local.values.3[,11], method = 2)
41+
.test.skewness.split('D$POSITIVE_NUMERIC',ds.test_env$local.values.1[,12],ds.test_env$local.values.2[,12],ds.test_env$local.values.3[,12], method = 2)
42+
.test.skewness.split('D$NEGATIVE_NUMERIC',ds.test_env$local.values.1[,13],ds.test_env$local.values.2[,13],ds.test_env$local.values.3[,13], method = 2)
43+
})
44+
45+
context("ds.skewness()::expt::single")
46+
test_that("combined data set",
47+
{
48+
connect.dataset.1()
49+
.test.skewness.combined('D$INTEGER',ds.test_env$local.values.1[,6], method = 3)
50+
.test.skewness.combined('D$NON_NEGATIVE_INTEGER',ds.test_env$local.values.1[,7], method = 3)
51+
.test.skewness.combined('D$POSITIVE_INTEGER',ds.test_env$local.values.1[,8], method = 3)
52+
.test.skewness.combined('D$NEGATIVE_INTEGER',ds.test_env$local.values.1[,9], method = 3)
53+
.test.skewness.combined('D$NUMERIC',ds.test_env$local.values.1[,10], method = 3)
54+
.test.skewness.combined('D$NON_NEGATIVE_NUMERIC',ds.test_env$local.values.1[,11], method = 3)
55+
.test.skewness.combined('D$POSITIVE_NUMERIC',ds.test_env$local.values.1[,12], method = 3)
56+
.test.skewness.combined('D$NEGATIVE_NUMERIC',ds.test_env$local.values.1[,13], method = 3)
57+
})

0 commit comments

Comments
 (0)