tests/testthat/test-is.wholenumber.R

context("is.wholenumber")

test_that("'is.wholenumber' does the job", {
  expect_true(is.wholenumber(c(1L, 10L)) &&
                is.wholenumber(c(1, 10)) && 
                !is.wholenumber(1+10^(-7)) && 
                is.wholenumber(1+10^(-8)))
})

Try the bazar package in your browser

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

bazar documentation built on May 2, 2019, 7:02 a.m.