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

Try the modi package in your browser

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

modi documentation built on March 31, 2023, 8:35 p.m.