tests/testthat/test_mapply-functions.R

context(".mapply")

test_that(".mapply", {
  a <- setNames(1L:10L, LETTERS[1L:10L])
  b <- 1L:2L
  f <- function(x, y)x+y

  expect_identical(MALDIquant:::.mapply(f, a, b),
                   mapply(f, a, b, USE.NAMES=FALSE, SIMPLIFY=FALSE))
})

Try the MALDIquant package in your browser

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

MALDIquant documentation built on March 31, 2023, 10:40 p.m.