tests/testthat/test_contributions4intervals.R

context("contributions4intervals")
library(testthat)
library(hmi)

#test_check("hmi")

test_that("contributions4intervals works", {
  expect_equal(contributions4intervals(c(-Inf, -Inf, -Inf, -Inf, -Inf), c(Inf, 0, 1, 2, 3), 0, 1),
               pnorm(c(Inf, 0, 1, 2, 3)))
  expect_equal(contributions4intervals(2.7, Inf, 2.7, 3.123), 0.5)
})

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.