tests/testthat/test_get_gini.R

context("getGini")
library(SCOPE)

test_that("Gini Calculation works", {
  Gini <- get_gini(Y_sim)
  expect_equal(sum(Gini<=0.12), 2)
})
rujinwang/SCOPE documentation built on Jan. 1, 2023, 5:40 a.m.