tests/testthat/test-rsd-filter.R

# rsd filter
test_that('rsd filter',{
  set.seed('57475')
  # DatasetExperiment
  D=iris_DatasetExperiment()
  # method
  M = rsd_filter(qc_label='virginica',factor_name='Species',rsd_threshold=100)
  # apply
 expect_true(all(M$flags==1))
})

test_that('blank filter histogram',{
  set.seed('57475')
  # DatasetExperiment
  D=iris_DatasetExperiment()
  # method
  M = rsd_filter(qc_label='virginica',factor_name='Species',rsd_threshold=100)
  # apply
  M=model_apply(M,D)
  # chart
  C = rsd_filter_hist()
  gg=chart_plot(C,M)
  expect_true(is(gg,'ggplot'))
})

Try the structToolbox package in your browser

Any scripts or data that you put into this service are public.

structToolbox documentation built on Nov. 8, 2020, 6:54 p.m.