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 July 9, 2023, 7:54 p.m.