tests/testthat/testmassdefect.R

context("Mass Defect")

test_that("Length of Mass defect dataframe", {
    mass <- c(100.1022, 245.2122, 267.3144, 400.1222, 707.2294)
    sf <- 0.9988
    mf <- getmassdefect(mass, sf)
    expect_equal(nrow(mf), 5)
    
})
yufree/enviGCMS documentation built on Sept. 12, 2023, 6:34 p.m.