tests/testthat/test_graphical_lasso.R

In travisbyrum/constructnet: Network reconstruction from time series

context("Testing Network Distance")

test_that("graphical_lasso", {
  TS <- matrix(
    c(-1, -1, -2, -1, 4, 7, 8, -3, -2, 1, 1, 4, 0, 2, 2, 1, 3, 2, -3, -1, 9),
    nrow = 3,
    ncol = 7,
    byrow = TRUE
  )

  x <- graphical_lasso_fit(TS, avg_k = 1)
})