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

dwww Home | Show directory contents | Find package

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

Generated by dwww version 1.15 on Mon Jun 24 15:32:13 CEST 2024.