tests/testthat/test-math_dgr-ds.skewness.R

In datashield/dsBaseClient: DataSHIELD Client Functions

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) 
       
})