tests/testthat/test_algorithms.R

In FilipePintoReis/KARS_project: Histocompatibility functios for organ transplantation

test_that("Points cPRA PT's algorithm", {
  expect_equal(pts_PRA(cPRA = 0, points.80 = 8, points.50 = 4), 0)
  expect_equal(pts_PRA(cPRA = 81, points.80 = 8, points.50 = 4), 8)
  expect_equal(pts_PRA(cPRA = 51, points.80 = 8, points.50 = 4), 4)
  expect_equal(pts_PRA(cPRA = 90, points.80 = 10, points.50 = 4), 10)
  expect_equal(pts_PRA(cPRA = 90, points.80 = 12, points.50 = 4), 12)
  expect_equal(pts_PRA(cPRA = 90, points.80 = 14, points.50 = 4), 14)
  expect_equal(pts_PRA(cPRA = 40, points.80 = 8, points.50 = 4), 0)
  expect_equal(pts_PRA(cPRA = 60, points.80 = 8, points.50 = 6), 6)
  expect_equal(pts_PRA(cPRA = 60, points.80 = 8, points.50 = 8), 8)
  expect_equal(pts_PRA(cPRA = 60, points.80 = 8, points.50 = 10), 10)
  })

test_that("Points mmHLA PT's algorithm", {
  expect_equal(pts_HLA(itemA = 12, itemB = 8, itemC = 4, itemD = 2, itemE = 1,
                       mm.A = 0, mm.B = 1, mm.DR = 0), 4)
  expect_equal(pts_HLA(itemA = 12, itemB = 8, itemC = 4, itemD = 2, itemE = 1,
                       mm.A = 0, mm.B = 0, mm.DR = 0), 12)
  expect_equal(pts_HLA(itemA = 15, itemB = 8, itemC = 4, itemD = 2, itemE = 1,
                       mm.A = 0, mm.B = 0, mm.DR = 0), 15)
  expect_equal(pts_HLA(itemA = 12, itemB = 8, itemC = 4, itemD = 2, itemE = 1,
                       mm.A = 0, mm.B = 1, mm.DR = 1), 2)
  expect_equal(pts_HLA(itemA = 12, itemB = 8, itemC = 4, itemD = 2, itemE = 1,
                       mm.A = 1, mm.B = 0, mm.DR = 0), 8)
  expect_equal(pts_HLA(itemA = 12, itemB = 8, itemC = 4, itemD = 2, itemE = 1,
                       mm.A = 1, mm.B = 1, mm.DR = 1), 2)
  expect_equal(pts_HLA(itemA = 12, itemB = 8, itemC = 4, itemD = 2, itemE = 1,
                       mm.A = 0, mm.B = 2, mm.DR = 0), 1)

  })

test_that("Points age differences PT's algorithm", {
  expect_equal(pts_age(donor.age = 60, candidate.age = 40, age.difference.points = 4), 4)
  expect_equal(pts_age(donor.age = 60, candidate.age = 40, age.difference.points = 6), 6)
  expect_equal(pts_age(donor.age = 20, candidate.age = 60, age.difference.points = 4), 0)
  expect_equal(pts_age(donor.age = 20, candidate.age = 20, age.difference.points = 4), 4)
  expect_equal(pts_age(donor.age = 70, candidate.age = 70, age.difference.points = 4), 4)
})