tests/testthat/test_db.R

context("db")

test_that("db", {
  data<-matrix(c(1,1,5,7,3,3.5,4,1,1.5,2,2,3,3.5,4),7,2)
  clusters<-c(1,1,2,2,3,3,3)
  expect_equal(round(index.DB(data,clusters)$DB,4),0.4431)
})

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.