Nothing
context("Verify graphics: Plot all")
test_that("Graphics parameters are not changed by plotting", {
par_0 <- par(no.readonly = TRUE)
# Create FFTrees object:
heart_fft <- FFTrees(
formula = diagnosis ~ .,
data = utils::head(heartdisease, 25), # reduced set
quiet = TRUE
)
# Main:
plot(heart_fft,
what = "all",
main = "Heart disease diagnosis",
decision.labels = c("absent", "present")
)
testthat::expect_equal(par_0, par(no.readonly = TRUE))
par(par_0)
})
# eof.
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.