tests/testthat/test-num_c13.R

context("test-num_c13")

test_that("counting c13 works", {
  data("sub_peak_info")
  expect_equal(sub_peak_info$c13 - 1, mu_numberc13(sub_peak_info$complete_IMF))
  expect_equal(sub_peak_info$c13, mu_numberc13(sub_peak_info$complete_IMF, add_one = TRUE))
})
rmflight/metabolomicsUtilities documentation built on Oct. 28, 2023, 6:41 p.m.