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)
})

Try the SCOPE package in your browser

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

SCOPE documentation built on Nov. 8, 2020, 5:27 p.m.