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")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.