Nothing
#READ THE TEST DATA
test_data_001<-readRDS("../testdata/test_data_001.rds")
test_data_002<-test_data_001[1:8,]
test_data_003<-test_data_001[1:9,]
test_data_004<-test_data_001[2:9,]
test_that("matrix is produced",{
expect_that(oddstable(test_data_001), is_a("matrix"))
})
test_that("matrix has the correct number of rows",{
expect_that(nrow(oddstable(test_data_001)), equals(9))
expect_that(nrow(oddstable(test_data_002)), equals(4))
expect_that(nrow(oddstable(test_data_004)), equals(4))
})
test_that("takes only input with even number of rows",{
expect_error(oddstable(test_data_003), "Aborting! The number of input rows is odd!")
})
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.