context("Testing check_similarity()")
test_that("The function check_similarity() gives the correct errors", {
partition <- matrix(rep(1, 9), nrow = 3)
expect_error(check_similarity(matrix(rep(-1, 9), nrow = 3), partition))
expect_error(check_similarity(matrix(rep(1, 6), nro = 3), partition))
expect_error(check_similarity(matrix(rep(1, 4), nrow = 2), partition))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.