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

Try the enviGCMS package in your browser

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

enviGCMS documentation built on Feb. 16, 2023, 8:08 p.m.