tests/testthat/probability-tests.R

In maxmayr95/STWIBFH: Utility Classes for STWI Exame 2019 @ University of Applied Science in Bern (Switzerland)

library(STWIBFH)

test_that("Calculate Intersection of Multiple Probabilities", {
  probabilityOne = c(0.5,0.5,0.5)
  expect_equal(getIntersectionProbabilty(probabilityOne), 0.125)
  probabiltyTwo = c(1,0.1)
  expect_equal(getIntersectionProbabilty(probabiltyTwo), 0.1)
  probabilityThree = c(3,3)
  expect_error(combineProbabiltiy(probabilityThree))
})


test_that("combine Probabilites", {
  probabilityOne = c(0.3,0.3)
  expect_equal(combineProbabiltiy(probabilityOne), 0.6)
  probabilityTwo = c(3,3)
  expect_error(combineProbabiltiy(probabilityTwo))
})


test_that("combine Probabilites", {
  expect_equal(calculateConditionalProbabilty(0.3,0.4), 0.75)
  expect_equal(calculateConditionalProbabilty(0.1,0.8), 0.125)
})