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 Jan. 26, 2024, 10:04 a.m.