context("feature stability")
test_that("distances", {
some_random_rank_a <- seq(1, 10)
some_random_rank_b <- seq(1, 20)
some_random_rank_c <- seq(21, 30)
some_random_vector_a <- sample(c(letters, LETTERS), 20, replace = FALSE)
some_random_vector_b <- sample(c(letters, LETTERS), 10, replace = FALSE)
some_random_vector_c <- sample(c(LETTERS), 10, replace = FALSE)
expect_error(canberra_distance(some_random_rank_a,some_random_rank_b))
expect_error(canberra_distance(some_random_rank_a,some_random_rank_c), NA)
expect_error(canberra_distance(some_random_vector_a,some_random_vector_b))
expect_error(dice_sorensen(some_random_rank_a,some_random_rank_b))
expect_error(dice_sorensen(some_random_vector_a,some_random_vector_b), NA)
expect_that(dice_sorensen(some_random_vector_a,some_random_vector_b), testthat::is_less_than(1))
expect_that(dice_sorensen(some_random_vector_a,some_random_vector_b), testthat::is_more_than(0))
expect_error(jaccards_index(some_random_rank_a,some_random_rank_b))
expect_error(jaccards_index(some_random_vector_a,some_random_vector_b), NA)
expect_that(jaccards_index(some_random_vector_a,some_random_vector_b), testthat::is_less_than(1))
expect_that(jaccards_index(some_random_vector_a,some_random_vector_b), testthat::is_more_than(0))
expect_error(ochiais_index(some_random_rank_a,some_random_rank_b))
expect_error(ochiais_index(some_random_vector_a,some_random_vector_b), NA)
expect_that(ochiais_index(some_random_vector_a,some_random_vector_b), testthat::is_less_than(1))
expect_that(ochiais_index(some_random_vector_a,some_random_vector_b), testthat::is_more_than(0))
expect_error(hammings_distance(some_random_rank_a,some_random_rank_b,m = 27))
expect_error(hammings_distance(some_random_vector_a,some_random_vector_b,m = 27), NA)
expect_that(hammings_distance(some_random_vector_a,some_random_vector_b,m = 27), testthat::is_less_than(1))
expect_that(hammings_distance(some_random_vector_a,some_random_vector_b,m = 27), testthat::is_more_than(0))
expect_error(RPT(some_random_vector_a,some_random_vector_b,beta = 1))
expect_error(RPT(some_random_rank_a,some_random_rank_b,beta = 1))
expect_error(RPT(0.5,1.5,beta = 1))
expect_error(RPT(1.5,0.5,beta = 1))
expect_error(RPT(0.75, 0.5, beta = 1), NA)
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.