tests/testthat/test-getNk.R

context("getNk")

test_that("test getNk", {
.Z<-c(1,1,2)

  expect_equal( length(getNK(.Z,k=2)), 2 )
  expect_equal( length(getNK(.Z,k=3)), 3 )
  expect_equal( sum(getNK(.Z,k=3)==0), 1 )
})
zoevanhavre/ZDev documentation built on May 4, 2019, 11:24 p.m.