tests/testthat/test-linearAlgebra-vechnames.R

In jeksterslab/linearAlgebra: Linear Algebra with R

## ---- test-linearAlgebra-vechnames
lapply(
  X = seq_len(3),
  FUN = function(k,
                 text) {
    text <- paste(
      text,
      k
    )
    message(text)
    varnames <- seq_len(k)
    testthat::test_that(
      text,
      {
        testthat::expect_equal(
          .vech(
            outer(
              X = varnames,
              Y = varnames,
              FUN = function(x, y) {
                paste0(x, ".", y)
              }
            )
          ),
          vechnames(varnames)
        )
      }
    )
    testthat::test_that(
      text,
      {
        testthat::expect_equal(
          .vech(
            outer(
              X = varnames,
              Y = varnames,
              FUN = function(x, y) {
                paste0(x, ".", y)
              }
            )
          ),
          names(
            vech(
              toeplitz((k:1) / k),
              names = TRUE
            )
          )
        )
      }
    )
  },
  text = "test-linearAlgebra-vechnames"
)