tests/testthat/test-ICSS.R

context('functions')

test_that('ICSS', {
  tmp <- ICSS(data)

  expect_equal(length(tmp), 2)
  expect_equal(tmp[1], 391)
  expect_equal(tmp[2], 517)

})

Try the ICSS package in your browser

Any scripts or data that you put into this service are public.

ICSS documentation built on April 22, 2021, 5:10 p.m.