revdep/checks/ICSClust/old/ICSClust.Rcheck/tests/testthat/test-scatters.R

In friendly/heplots: Visualizing Hypothesis Tests in Multivariate Linear Models

# 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))
# })