tests/testthat/testParameters.R

library(PerseusR)
context('Parameters')

paramFile <- system.file('extdata/parameters1.xml', package = 'PerseusR')
test_that('you can read the parameters file', {
  parameters <- parseParameters(paramFile)
  expect_equal("cor", singleChoiceParamValue(parameters, "Correlation function"))
  expect_equal(5, intParamValue(parameters, "Power"))
})

Try the PerseusR package in your browser

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

PerseusR documentation built on May 2, 2019, 6:52 a.m.