tests/testthat/test_GIMCD.R

context("GIMCD")
library(modi)

test_that("Number of rows is equal to dimension of mean vector", {
  data(bushfirem)
  invisible(capture.output(det.res <- GIMCD(bushfirem, alpha = 0.1)))
  expect_equal(dim(bushfirem)[2], length(det.res$center))
})
martinSter/modi documentation built on March 14, 2023, 12:09 p.m.