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