tests/testthat/test_is_interval.R

context("is_interval")
library(testthat)
library(hmi)

#test_check("hmi")

test_that("is_interval dectecs intervals correctly", {
  expect_false(is_interval(rnorm(10)))
  expect_false(is_interval(1:10))
  expect_false(is_interval(c("m", "f", "m")))
  expect_false(is_interval(c("100", "200", "150")))
  expect_false(is_interval(c("100", "200", "150;200")))
  expect_true(is_interval(c("100;100", "200;200", "150;200")))
  expect_true(is_interval(c("100;100", "200;200", NA, "150;200")))
  expect_true(is_interval(c("100;100", "-Inf;-Inf", "150;200")))
  expect_true(is_interval(c("100;100", "-Inf;0", "150;200")))
  expect_true(is_interval(c("100;100", "0;Inf", "150;200")))
  expect_true(is_interval(c("100;100", "Inf;Inf", "150;200")))
})

Try the hmi package in your browser

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

hmi documentation built on Oct. 23, 2020, 7:31 p.m.