context("cluster number inference on Joost data")
library(RSoptSC)
test_that("initial components are correct", {
comps <- GetComponents(data = joostTest$S, tol = 0.01)
expect_equal(comps$n_eigs, 6)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.