tests/testthat/test_getMedSenLineActivity.R

test_that("getMedSenLineActivity output is computed properly", {
  idSet <- c("609699", "740")
  medSenActVals <- getMedSenLineActivity(idSet)
  
  expectedOutput <- c(7.851282, 7.493676)
  names(expectedOutput) <- idSet
  
  expect_equal(medSenActVals, expectedOutput, tolerance = 10^-7)
})

Try the rcellminer package in your browser

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

rcellminer documentation built on Nov. 26, 2020, 2:02 a.m.