context("Test input data processing")
## test data ##
test_that("test plot.vimes_data", {
## skip on CRAN
skip_on_cran()
## generate data
set.seed(1)
x1 <- rnorm(20)
x2 <- runif(20)
names(x1) <- sample(letters, 20)
names(x2) <- sample(letters, 20)
D1 <- dist(x1)
D2 <- dist(x2)
out <- vimes_data(D1, D2)
## check expected errors
expect_error(plot(out, n = -1))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.