Nothing
context("test-plots")
test_that("equal length plot is as expected", {
skip_on_cran()
bins <- rbin_equal_length(mbank, y, age, 10)
p <- plot(bins)
vdiffr::expect_doppelganger("el plot", p)
})
test_that("equal frequency plot is as expected", {
skip_on_cran()
bins <- rbin_equal_freq(mbank, y, age, 10)
p <- plot(bins)
vdiffr::expect_doppelganger("ef plot", p)
})
test_that("manual plot is as expected", {
skip_on_cran()
bins <- rbin_manual(mbank, y, age, c(29, 31, 34, 36, 39, 42, 46, 51, 56))
p <- plot(bins)
vdiffr::expect_doppelganger("ml plot", p)
})
test_that("quantiles plot is as expected", {
skip_on_cran()
bins <- rbin_quantiles(mbank, y, age, 10)
p <- plot(bins)
vdiffr::expect_doppelganger("ql plot", p)
})
test_that("winsorize plot is as expected", {
skip_on_cran()
bins <- rbin_winsorize(mbank, y, age, 10, winsor_rate = 0.05)
p <- plot(bins)
vdiffr::expect_doppelganger("wl plot", p)
})
test_that("factor plot is as expected", {
skip_on_cran()
bins <- rbin_factor(mbank, y, education)
p <- plot(bins)
vdiffr::expect_doppelganger("fl plot", p)
})
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.