tests/testthat/test-eigenvalues.R

In LikertMakeR: Synthesise and Correlate Likert Scale and Rating-Scale Data Based on Summary Statistics

## Unit tests for eigenvalues() function

test_that("eigenvalues runs silently with valid inputs", {
  ## define parameters

  correlationMatrix <- matrix(
    c(
      1.00, 0.25, 0.35, 0.40,
      0.25, 1.00, 0.70, 0.75,
      0.35, 0.70, 1.00, 0.80,
      0.40, 0.75, 0.80, 1.00
    ),
    nrow = 4, ncol = 4
  )


  ## apply function examples

  expect_no_warning(eigenvalues(cormatrix = correlationMatrix))

  expect_no_warning(eigenvalues(correlationMatrix, 1))
})