tests/testthat/test_comparing.R

context("comparing")

test_that("comparing", {
  a<-rep(1:3,each=10)
  b<-rep(sample(1:3,3),each=10)
  expect_equal(comparing.Partitions(a,b,type="crand"), 1)
})

Try the clusterSim package in your browser

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

clusterSim documentation built on Jan. 8, 2021, 2:13 a.m.