tests/testthat/test-filter-smeta.R

In structToolbox: Data processing & analysis tools for Metabolomics and other omics

# filter smeta
test_that('filter smeta include',{
  set.seed('57475')
  # DatasetExperiment
  D=iris_DatasetExperiment()
  # method
  M = filter_smeta(mode='include',levels='versicolor',factor_name='Species')
  # apply
  M = model_apply(M,D)
  expect_equal(nrow(M$filtered$data),50)
})

test_that('filter smeta exclude',{
  set.seed('57475')
  # DatasetExperiment
  D=iris_DatasetExperiment()
  # method
  M = filter_smeta(mode='exclude',levels='versicolor',factor_name='Species')
  # apply
  M = model_apply(M,D)
  expect_equal(nrow(M$filtered$data),100)
})