tests/testthat/test_entropy.R

library(binst)

test_that("using mdlp", {
  mdlp_breaks <- create_breaks(1:10, rep(c(1,2), each=5), method="entropy")
  expect_equal(mdlp_breaks, 5.5)
})

Try the binst package in your browser

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

binst documentation built on May 2, 2019, 7:32 a.m.