tests/testthat/test_69_PerCapitaNucleolus.R

In CoopGame: Important Concepts of Cooperative Game Theory

boolSkip=F


test_that("Check 69.1 - testing calculation of class PerCapitaNucleolus" ,{
  if(boolSkip){
    skip("Test was skipped")
  }
  
  v<-c( 0,  0,  0,  0,  9, 10, 12)
  result=perCapitaNucleolus(v)
  
  expect_equal(result,c(4/6,7/6,61/6),tolerance=1e-3)
  
})