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