tests/testthat/test-common.R

In Dom-Owens-UoB/fnets: Factor-Adjusted Network Estimation and Forecasting for High-Dimensional Time Series

library(fnets)
set.seed(123)
n <- 500
p <- 50
common <- sim.unrestricted(n, p)
idio <- sim.var(n, p)
x <- common$data + idio$data
out <- fnets(x, q = NULL, var.order = 1, var.method = "lasso", do.lrpc = FALSE)


test_that("ic works", {
  cpre <- predict(out)
})

test_that("er works", {
  cpre <- predict(out, r = "er")
})

test_that("fc.restricted works", {
  cpre <- predict(out, r = 2, fc.restricted = FALSE)
})