tests/testthat/test-fct_cor_mutations.R

test_that("cor_mutations() gives consistent result", {
  data <- data_nutlin() %>%
    dplyr::filter(!is.na(.data$AUC)) %>%
    add_ids("Cell line")

  expect_snapshot(cor_mutations(data, response = "AUC"))
})
dwassarman/cellpanelr documentation built on Jan. 3, 2023, 8:27 a.m.