tests/testthat/test-grouped_data2.R

In correlation: Methods for Correlation Analysis

test_that("correlation with grouped data", {
  skip_if_not_or_load_if_installed("poorman")
  df <- subset(mtcars, select = c("am", "mpg", "wt")) %>% group_by(am)

  expect_error(
    correlation(
      subset(df, select = c("am", "mpg")),
      subset(df, select = c("wt"))
    )
  )

  corr_df <- correlation(
    subset(df, select = c("am", "mpg")),
    subset(df, select = c("am", "wt"))
  )

  expect_equal(corr_df$r, c(-0.7676554, -0.9089148), tolerance = 0.001)
})