tests/testthat/test-RKL.R

context("Testing RKL functionality")

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

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.