tests/B_fit_run_tests_CRAN.R

In nielsrhansen/msgl: Multinomial Sparse Group Lasso

library(msgl)

source("units/run_tests.R")
source("units/generate_data.R")
source("units/fit_test.R")

# warnings = errors
options(warn=2)
set.seed(100) #  ensures consistency of tests

# Run the tests

## create data
data <- create_test_data()

## Possible args values
values <- expand.grid(
  grouping = list(factor(1:ncol(data$X) %% 100)),
  groupWeights = list(NULL),
  parameterWeights = list(NULL),
  alpha = c(0, 0.5, 1),
  d = 50,
  lambda = 0.95,
  intercept = FALSE,
  sparseX = FALSE,
  standardize  = FALSE
)

## consistency args values
consistency <- expand.grid(
  Xcolnames = c(TRUE, FALSE),
  Xrownames = c(TRUE, FALSE)
)

run_tests(
  data = data,
  args_values = values,
  args_consistency = consistency,
  test = fit_test,
  check_consistency = check_fit_consistency
)