tests/testthat/test-deviance.R

In jolars/SLOPE: Sorted L1 Penalized Estimation

test_that("deviance() works.", {
  fit <- SLOPE(abalone$x, abalone$y, family = "poisson", path_length = 20)
  d <- deviance(fit)
  expect_equivalent(
    d,
    c(
      0.811481727095348,
      0.623090978381263,
      0.546090761782434,
      0.503613217938781,
      0.48356002029254,
      0.427917412849951,
      0.397310747935371,
      0.384952482526774,
      0.37696682671935,
      0.365625557434747,
      0.360166287336796,
      0.357895673218362,
      0.357006148674834,
      0.35665810484565,
      0.356526439340104,
      0.356473865952857,
      0.356453757295853,
      0.356446103336271,
      0.356443197668266
    ),
    tolerance = 1e-2
  )
})