Nothing
context("CVA")
test_that("CVA behaves", {
data(iris)
vari <- iris[,1:4]
facto <- iris[,5]
cva.1 <- CVA(vari, groups=facto)
CVA.baseline=readRDS("testdata/CVA.rds")
expect_equal(abs(cva.1$CV),abs(CVA.baseline$CV),tol=0.001,check.attributes=FALSE)
})
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.