tests/testthat/test-do-variability-table.R

In computational-metabolomics/qcrms: Creates quality control output from XCMS output

context("test-dorsdtable")

test_that("RSD table is returned in proper order", {
  out <- do_variability_table(testData$doRSD)
  expect_equal(out , testData$doRSDtable)
})

test_that("RSD table is returned when NA's are not present in data", {
  data <- testData$data
  data[is.na(data)] <- 0
  # In boht blank samples this feature has NA, so will couse NaN
  data <- data[-5,]
  rsd <- do_variability_list(peak_data =data, classes = testData$class)
  out <- do_variability_table(rsd)
  expect_equal(out , testData$doRSDtable_no_NA)
})