### Test count / sparse
test_that("count sparse", {
  set.seed(24101968)
  library("tramvs")

  N <- 1e2
  P <- 5
  nz <- 3
  beta <- rep(c(1, 0), c(nz, P - nz))
  X <- matrix(abs(rnorm(N * P)), nrow = N, ncol = P)
  Y <- as.integer(1 + X %*% beta + abs(rnorm(N)))

  dat <- data.frame(y = Y, x = X)
  res <- cotramVS(y ~ ., data = dat)

  # Active set
  expect_equal(support(res), c("x.1", "x.2", "x.3"))
})