inst/unitTests/runit.monoisotopic.R

test.monoisotopicMasses <- function() {
  elem <- initializePSE()
  all(sapply(elem, function(x) {x$mass == as.integer(getMolecule(x$name, elem)$exactmass)}))
  
}
sneumann/Rdisop documentation built on June 5, 2024, 4:28 p.m.