.devel/testthat/test-owa.R

In Rexamine/agop: Aggregation Operators and Preordered Sets

require('testthat')


test_that("owa, wam", {

   expect_equivalent(owa(c(1,2,NA)), NA_real_)
   expect_error(owa(1, numeric(0)))
   expect_error(owa(numeric(0),1))
   expect_equivalent(owa(1:10), 5.5)
   expect_equivalent(owa(1:10, c(1,rep(0,9))), 1)
   expect_equivalent(owa(1:10, c(rep(0,9),1)), 10)
   expect_equivalent(owa(10:1, c(1,rep(0,9))), 1)
   expect_equivalent(owa(10:1, c(rep(0,9),1)), 10)
   expect_warning(owa(1, 2))

   expect_equivalent(wam(c(1,2,NA)), NA_real_)
   expect_error(wam(1, numeric(0)))
   expect_error(wam(numeric(0),1))
   expect_equivalent(wam(1:10), 5.5)
   expect_equivalent(wam(1:10, c(1,rep(0,9))), 1)
   expect_warning(wam(1, 2))

})