tests/testthat/test-scatters.R

In ICSClust: Tandem Clustering with Invariant Coordinate Selection

# test_that("tcov() works correctly", {
#   X <- iris[, 1:4]
#   expect_equal(tcov(X), ICSClust:::tcov_amap(X))
# })
# 
# test_that("ucov() works correctly", {
#   X <- iris[, 1:4]
#   beta <- 4
#   expect_equal(ucov(X, beta = beta), ICSClust:::ucov_amap(X, beta = beta))
# })