tests/testthat/test-corr_matrix.R

In meantrix/corrp: Compute Correlations Type Analysis in Parallel

test_that("Tests on corr_matrix", {
  # data to tests
  df <- iris

  corr <- corrp(df, comp = "g", alternative = "t")
  m <- corr_matrix(corr, isig = F)

  # class test
  expect_s3_class(m, "cmatrix")

  si <- sample(seq_len(NROW(corr$data)), 3)

  inf <- corr$data[si, c("varx", "vary", "infer.value")]

  for (k in seq_len(NROW(inf))) {
    expect_equal(m[as.character(inf$vary[k]), as.character(inf$varx[k])], inf$infer.value[k])
  }
})