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)
})

Try the MALDIquant package in your browser

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

MALDIquant documentation built on March 31, 2023, 10:40 p.m.