From 8948c5414d3790fe9f085b1daa1754c1894d556b Mon Sep 17 00:00:00 2001
From: Pierre Santagostini <pierre.santagostini@agrocampus-ouest.fr>
Date: Wed, 10 Jan 2024 17:45:11 +0100
Subject: [PATCH] mvrcd is renamed into rmcd
---
tests/testthat/test_mvrcd.R | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/tests/testthat/test_mvrcd.R b/tests/testthat/test_mvrcd.R
index 1ed48df..b73eea7 100644
--- a/tests/testthat/test_mvrcd.R
+++ b/tests/testthat/test_mvrcd.R
@@ -1,6 +1,6 @@
mu <- rep(0, 3)
sigma <- matrix(c(1, 0.6, 0.2, 0.6, 1, 0.3, 0.2, 0.3, 1), nrow = 3)
-x <- as.matrix(mvrcd(1000000, mu, sigma))
+x <- as.matrix(rmcd(1000000, mu, sigma))
apply(x, 2, median)
scal <- numeric(nrow(x))
@@ -8,7 +8,7 @@ for (i in 1:length(scal)) {
scal[i] <- x[i, , drop = FALSE] %*% solve(sigma) %*% t(x[i, , drop = FALSE])
}
-test_that("mvrcd works", {
+test_that("rmcd works", {
expect_equal(
round(apply(x, 2, median), 2),
mu
--
GitLab