tests/testthat/test-plot_mediate_plot.R

context("mediate_plot()")

test_that("mediate_plot works", {
  #p = mediate_plot(weight.loss~motivation + therapy.type, data=exercise_data)
  set.seed(12312)
  vdiffr::expect_doppelganger("mediate_plot with numeric",     mediate_plot(y~a + x, data=small))
  vdiffr::expect_doppelganger("mediate_plot with categorical", mediate_plot(y~x + a, data=small))
})
dustinfife/flexplot documentation built on Sept. 23, 2024, 9:01 p.m.