tests/testthat/test.boman.R

In dosorio/Peptides: Calculate Indices and Theoretical Physicochemical Properties of Protein Sequences

# COMPARED TO YADAMP DATABASE
# http://yadamp.unisa.it/showItem.aspx?yadampid=845&x=0,4373912
# SEQUENCE: FLPVLAGLTPSIVPKLVCLLTKKC
# BOMAN INDEX  -1.24  

# CHECK VALUES
test_that("boman function: output value is wrong",{
  expect_equal(boman(seq = "FLPVLAGLTPSIVPKLVCLLTKKC"),-1.24, tolerance=0.01)
})

# CHECK OUTPUT CLASS
test_that("boman function: output class is wrong",{
  expect_true(is.numeric(boman(seq = "FLPVLAGLTPSIVPKLVCLLTKKC")))
})