tests/testthat/test-corr_rm.R

In meantrix/corrp: Compute Correlations Type Analysis in Parallel

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

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

  m2 <- m
  class(m2) <- "matrix"

  df2 <- corr_rm(df = df, c = corr)
  df3 <- corr_rm(df = df, c = m)
  expect_warning(df4 <- corr_rm(df = df, c = m2))
  expect_equal(df2, df3)
  expect_equal(df2, df4)
})