tests/testthat/test_irregular-functions.R

context(".irregular")

test_that(".irregularScore", {
  expect_equal(MALDIquant:::.irregularScore(1:10), 0)
  expect_equal(MALDIquant:::.irregularScore((1:10)[-8]), 1/7)
})
sgibb/MALDIquant documentation built on Aug. 22, 2024, 6:59 p.m.