Page Comparison

# part a
source("connection_to_datasets/init_all_datasets.R")
source("definition_tests/def-ds.mean.R")

# part b
connect.all.datasets()

# part c
context("ds.mean()::expt::combine::multiple")
#part d
test_that("combined data set",
{
  .test.mean.combined('D$INTEGER',ds.test_env$local.values[,6])
  .test.mean.combined('D$NON_NEGATIVE_INTEGER',ds.test_env$local.values[,7])
  .test.mean.combined('D$POSITIVE_INTEGER',ds.test_env$local.values[,8])
  .test.mean.combined('D$NEGATIVE_INTEGER',ds.test_env$local.values[,9]) 
  .test.mean.combined('D$NUMERIC',ds.test_env$local.values[,10])
  .test.mean.combined('D$NON_NEGATIVE_NUMERIC',ds.test_env$local.values[,11])
  .test.mean.combined('D$POSITIVE_NUMERIC',ds.test_env$local.values[,12])
  .test.mean.combined('D$NEGATIVE_NUMERIC',ds.test_env$local.values[,13]) 
})

# part e
connect.dataset.1()

# part f
context("ds.mean()::expt::single")
test_that("combined data set",
{
 
  .test.mean.combined('D$INTEGER',ds.test_env$local.values.1[,6])
  .test.mean.combined('D$NON_NEGATIVE_INTEGER',ds.test_env$local.values.1[,7])
  .test.mean.combined('D$POSITIVE_INTEGER',ds.test_env$local.values.1[,8])
  .test.mean.combined('D$NEGATIVE_INTEGER',ds.test_env$local.values.1[,9]) 
  .test.mean.combined('D$NUMERIC',ds.test_env$local.values.1[,10])
  .test.mean.combined('D$NON_NEGATIVE_NUMERIC',ds.test_env$local.values.1[,11])
  .test.mean.combined('D$POSITIVE_NUMERIC',ds.test_env$local.values.1[,12])
  .test.mean.combined('D$NEGATIVE_NUMERIC',ds.test_env$local.values.1[,13]) 
})