tests/testthat/test_db.R

context("mdsOpt")

test_that("mdsOpt", {
  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 mdsOpt package in your browser

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

mdsOpt documentation built on June 26, 2022, 5:05 p.m.