1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
context("isMassObject")
s <- createMassSpectrum(mass=1:10, intensity=1:10)
p <- createMassPeaks(mass=1:10, intensity=1:10)
test_that(".isMassObject", {
expect_false(MALDIquant:::.isMassObject(double()))
expect_false(MALDIquant:::.isMassObject(list()))
expect_true(MALDIquant:::.isMassObject(s))
expect_true(MALDIquant:::.isMassObject(p))
})
test_that("isMassSpectrum", {
expect_false(isMassSpectrum(double()))
expect_false(isMassSpectrum(list()))
expect_false(isMassSpectrum(p))
expect_true(isMassSpectrum(s))
})
test_that("isMassPeaks", {
expect_false(isMassPeaks(double()))
expect_false(isMassPeaks(list()))
expect_false(isMassPeaks(s))
expect_true(isMassPeaks(p))
})
|
