tests/testthat/test_plotMD.R

context("plotMD")
library(modi)

test_that("Plot of Mahalanobis distance", {
  data(bushfirem, bushfire.weights)
  det.res <- TRC(bushfirem, weights = bushfire.weights)
  pout <- PlotMD(det.res$dist, ncol(bushfirem))
  expect_type(pout, type = "list")
})
martinSter/modi documentation built on March 14, 2023, 12:09 p.m.