tests/testthat/test_as-methods.R

context("as")

test_that("as", {
  p <- createMassPeaks(mass=1:10, intensity=11:20, snr=rep(1, 10),
                       metaData=list(file="foo"))
  s <- createMassSpectrum(mass=1:10, intensity=11:20, metaData=list(file="foo"))
  expect_equal(as(p, "MassSpectrum"), s)
})

Try the MALDIquant package in your browser

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

MALDIquant documentation built on May 29, 2024, 6:11 a.m.