tests/testthat/test_rankhash.R

library(rankdist)
context("RankHash")

rank = sample(1:52,52)
rankmat = replicate(10,sample(1:52,52), simplify = "array")

test_that("Rank Hash",{
    expect_equal(HashtoRank(RanktoHash(rank)),rank)
    expect_equal(HashtoRank(RanktoHash(HashtoRank(RanktoHash(rank)))),rank)
    expect_equal(HashtoRank(RanktoHash(rankmat)),rankmat)
    expect_equal(HashtoRank(RanktoHash(HashtoRank(RanktoHash(rankmat)))),rankmat)
})

Try the rankdist package in your browser

Any scripts or data that you put into this service are public.

rankdist documentation built on July 28, 2019, 1:02 a.m.