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")
})

Try the tornado package in your browser

Any scripts or data that you put into this service are public.

tornado documentation built on May 29, 2024, 2:01 a.m.