tests/testthat/testClusterNumber.R

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)
})
mkarikom/RSoptSC documentation built on May 10, 2023, 1:10 a.m.