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
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.