tests/testthat/test-ggp_measures_modif.R

In FrankLef/fciR: Data and functions used with Fundamentals of Causal Inference by Babette Brumback

test_that("ggp_measures_modif", {
  data(fci_tbl_04_02)
  df <- fci_tbl_04_02

  out <- ggp_measures_modif(df, title = "Change in effect measures",
                     subtitle = "Effect-Measure Modification and Statistical Interaction")

  expect_s3_class(out, class = "ggplot")
})