tests/testthat/test-deviance.R

In SLOPE: Sorted L1 Penalized Estimation

test_that("deviance() works.", {
  fit <- SLOPE(abalone$x, abalone$y, family = "poisson")
  d <- deviance(fit)
  expect_equal(d, c(
    1037.02765296425,
    997.797900039235,
    979.713284893303,
    971.334618083336,
    967.212081858775,
    955.436343840256,
    949.296926504386,
    946.707984980695,
    944.47841255233,
    942.550214163128,
    941.677883485186,
    941.273085490469,
    941.113615398905,
    941.05268144228,
    941.028579916935,
    941.019623487659
  ))
})