Nothing
context("PvarBreakTest")
test_that("Basic", {
set.seed(12345)
N = 1000
x = rnorm(N) + rep(0:1, each=N/2)
Test = PvarBreakTest(x)
# plot(Test)
expect_that(Test, is_a('PvarBreakTest'))
expect_that(summary(Test), is_a('PvarBreakTest'))
# expect_that(plot(Test), is_null())
})
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.