tests/testthat/test_FindSilhouette.R

library(ADPclust)
context("Test FindSilhouette")
test_that("Testing FindSilhouette", {
    load("2clust.RData") # distm, x, clusters
    a <- FindSilhouette(distm, clusters)
    expect_equal(round(a, 5), 0.92147)
})

Try the ADPclust package in your browser

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

ADPclust documentation built on May 2, 2019, 9:23 a.m.