/usr/share/doc/r-cran-maldiquant/tests/testthat/test_replaceNegativeIntensityValues.R

dwww Home | Show directory contents | Find package

context(".replaceNegativeIntensityValues")

test_that(".replaceNegativeIntensityValues", {
  s <- suppressWarnings(createMassSpectrum(mass=1:5, intensity=-(1:5)))
  expect_warning(MALDIquant:::.replaceNegativeIntensityValues(s),
                 "Negative intensity values are replaced by zeros.")
  expect_equal(intensity(
                 MALDIquant:::.replaceNegativeIntensityValues(s, warn=FALSE)),
               rep(0L, 5L))
})

Generated by dwww version 1.15 on Sat May 18 15:00:56 CEST 2024.