tests/testthat/test-cluster.R

context("test-cluster")

test_that("default cluster", {
  feature_clusters <- cluster(feature_matrix, k = 6)
  expect_equal(2, length(feature_clusters))
})

Try the theftdlc package in your browser

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

theftdlc documentation built on Aug. 8, 2025, 6:30 p.m.