tests/testthat/test-print_tornado_plot.R

context("test-print_tornado_plot")

test_that("printing Tornado works", {
  gtest <- lm(mpg ~ cyl*wt*hp, data = mtcars)
  torn <- tornado(gtest, type = "PercentChange", alpha = 0.10)
  expect_output(print(torn), regexp = "Tornado")
})
bertcarnell/tornado documentation built on Aug. 6, 2024, 10:17 p.m.