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

context("snr")

s <- createMassPeaks(mass=1:10, intensity=11:20, snr=rep(2, 10))

test_that("snr", {
  expect_identical(snr(s), rep(2, 10))
})

Generated by dwww version 1.15 on Mon Jun 24 15:28:44 CEST 2024.