#testing print.gsProbability for gsDesign and gsBinomialExact class.
testthat::test_that('Test: object of class gsDesign - plot for y',
code = {
x <- gsDesign()
y <- gsProbability(d = x, theta = x$delta * seq(0, 2, .25))
local_edition(3) #use the 3rd edition of the testthat package
expect_snapshot_output(x = print.gsProbability(y))
})
testthat::test_that('Test: object of class gsDesign - plot for z',
code = {
x <- gsDesign()
z <- gsProbability(k = 3, a = x$lower$bound, b = x$upper$bound, n.I = x$n.I,
theta = x$delta * seq(0, 2, .25))
local_edition(3)
expect_snapshot_output(x = print.gsProbability(z))
})
testthat::test_that('Test: object of class gsBinomialExact',
code = {
x <- gsBinomialExact()
local_edition(3)
expect_snapshot_output(x = print.gsProbability(x))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.