Nothing
library(testthat)
#------------------------------------------------------
## Clustering on the Sphere
##
# Test 1: Test for true.labels
test_that("Clustering algorithm works", {
set.seed(123)
dat<-rbind(matrix(rnorm(50),ncol=2), matrix(rnorm(50,4),ncol=2))
y <- rep(c(1,2),each=25)
val1 <- pkbc_validation(pkbc(dat, 2), true_label = NULL)
expect_equal(nrow(val1$metrics),1)
expect_null(val1$elbow)
expect_equal(length(val1$IGP), 2)
val2 <- pkbc_validation(pkbc(dat, c(2,3,4)), true_label = y)
expect_equal(nrow(val2$metrics),4)
expect_equal(length(val2$IGP), 4)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.