tests/testthat/test-AHR.R

context("Testing AHR functionality")

test_that("Test AHR function", {
  y <- c(rep(1, 10), rep(0, 10))
  phat <- seq(1, 0, length = length(y))
  Metric <- AHR(y, phat)
  expect_equal(Metric, 1)
})

Try the EPX package in your browser

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

EPX documentation built on July 7, 2021, 1:06 a.m.