tests/testthat/test_higlasso.R

context("Test higlaso")

test_that("cv.higlasso works", {


X <- as.matrix(higlasso.df[, paste0("V", 1:7)])
Y <- higlasso.df$Y
Z <- matrix(1, nrow(X))

expect_silent({
    higlasso.fit <- cv.higlasso(Y, X, Z)
})
})
umich-cphds/higlasso documentation built on Nov. 13, 2020, 1:49 a.m.