tests/testthat/test_68_ProportionalNucleolus.R

In CoopGame: Important Concepts of Cooperative Game Theory

boolSkip=F






test_that("Check 68.1 - testing calculation of class ProportionalNucleolus" ,{
  if(boolSkip){
    skip("Test was skipped")
  }
  
  v<-c(20,200,0,210,40,200,350)
  
  
  expect_equal(round(proportionalNucleolus(v),3),c(36.992,291.667,21.341),tolerance=1e-3)
  
})

test_that("Check 68.2 - testing calculation of class ProportionalNucleolus" ,{
  if(boolSkip){
    skip("Test was skipped")
  }
  v<-c(rep(0,5),
       10,13,15,13,14,19,8,15,12,20,
       18,27,17,32,19,25,30,18,24,32,
       40,33,38,42,41,
       54)
  expected_x<-c(8.35,7.24,11.69,17.26, 9.46)
  
  
  expect_equal(round(proportionalNucleolus(v),2),expected_x,tolerance=1e-3)
  
})


test_that("Check 68.3 - testing calculation of class ProportionalNucleolus" ,{
  if(boolSkip){
    skip("Test was skipped")
  }
  
  v<-c(rep(0,5),
       10,13,15,13,14,19,8,15,12,20,
       18,27,17,32,19,25,30,18,24,32,
       40,33,38,42,41,
       54)
  expected_x<-c(8.35,7.24,11.69,17.26, 9.46)
  
  
  expect_equal(round(proportionalNucleolus(v),2),expected_x,tolerance=1e-3)
  
})