We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
2 parents 44bb3c9 + a59eb47 commit bb95044Copy full SHA for bb95044
1 file changed
tests/testthat/test-ccdr_ivn.R
@@ -25,7 +25,9 @@ suppressMessages({
25
test_that("ccdr.run runs as expected", {
26
### No error / Also tests default values for other parameters
27
expect_error(ccdr.run(data = dat.test, lambdas.length = lambdas.length.test), NA)
28
+})
29
30
+test_that("Check special case ivn = list(NULL, NULL, ...)", {
31
### No error if ivn = list(NULL, NULL, ...)
32
data.null <- sparsebnUtils::sparsebnData(X.test, type = "c", ivn = vector("list", nn))
33
expect_error(ccdr.run(data = data.null, lambdas.length = lambdas.length.test), NA)
0 commit comments