context("valTable")
test_that("valTable data.frame",{
data("Tarragona")
vT <- valTable(Tarragona[100:200,],
method=c("simple","onedims","pca","addNoise:additive",
"addNoise:correlated","addNoise:correlated2","addNoise:restr",
"addNoise:outdect","addNoise:ROMM"))
expect_true(is.data.frame(vT))
})
test_that("valtable more methods",{
data("Tarragona")
expect_warning(vT <- valTable(Tarragona[100:200,],
method=c("simple","onedims","pca","clustpppca","mdav","swappNum")))
expect_true(is.data.frame(vT))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.