tests/testthat/test-importance_glmnet.R

In bertcarnell/tornado: Plots for Model Sensitivity and Variable Importance

context("test-importance_glmnet")

test_that("importance glmnet works", {
  testthat::skip_if_not_installed("glmnet")

  imp <- importance(glmnet_model, mtcars, glmnet_form, nperm = n_permutation_tests)
  expect_equal(class(imp), "importance_plot")
  plot(imp)
})

test_that("importance glmnet works with weights", {
  testthat::skip_if_not_installed("glmnet")

  imp <- importance(glmnet_model_weighted, mtcars, glmnet_form, nperm = n_permutation_tests)
  expect_equal(class(imp), "importance_plot")
  plot(imp)
})