Former names of the functions replaced by their new names

tests/testthat/test_estparmvggd.R

@@ -4,7 +4,7 @@ mu1 <- c(0, 0, 0)
 Sigma1 <- matrix(c(0.8, 0.3, 0.2, 0.3, 0.2, 0.1, 0.2, 0.1, 0.2), nrow = 3)
 beta1 <- 0.74
 
-x1 <- mvrggd(10000, mu1, Sigma1, beta1)
+x1 <- rmggd(10000, mu1, Sigma1, beta1)
 
 set.seed(42)
 
@@ -12,13 +12,13 @@ mu2 <- c(1, 2, 4)
 Sigma2 <- matrix(c(1, 0.3, 0.2, 0.3, 0.5, 0.1, 0.2, 0.1, 0.7), nrow = 3)
 beta2 <- 2.55
 
-x2 <- mvrggd(10000, mu2, Sigma2, beta2)
+x2 <- rmggd(10000, mu2, Sigma2, beta2)
 
 # Esimation des paramètres
-x1estim <- estparmvggd(x1, display = FALSE, plot = FALSE)
-x2estim <- estparmvggd(x2, display = FALSE, plot = FALSE)
+x1estim <- estparmggd(x1, display = FALSE, plot = FALSE)
+x2estim <- estparmggd(x2, display = FALSE, plot = FALSE)
 
-test_that("estparmvggd works",
+test_that("estparmggd works",
   {
     expect_equal(mu1, x1estim$mu, tolerance = 0.1)
     expect_equal(Sigma1, x1estim$Sigma, tolerance = 0.1)

tests/testthat/test_mvrggd.R

@@ -2,15 +2,15 @@ mu1 <- c(0, 0, 0)
 Sigma1 <- matrix(c(0.8, 0.3, 0.2, 0.3, 0.2, 0.1, 0.2, 0.1, 0.2), nrow = 3)
 beta1 <- 0.74
 
-x1 <- mvrggd(10000, mu1, Sigma1, beta1)
+x1 <- rmggd(10000, mu1, Sigma1, beta1)
 
 mu2 <- c(1, 2, 4)
 Sigma2 <- matrix(c(1, 0.3, 0.2, 0.3, 0.5, 0.1, 0.2, 0.1, 0.7), nrow = 3)
 beta2 <- 2.55
 
-x2 <- mvrggd(10000, mu2, Sigma2, beta2)
+x2 <- rmggd(10000, mu2, Sigma2, beta2)
 
-test_that("mvrggd works",
+test_that("rmggd works",
   {
     expect_true(is.matrix(x1))
     expect_equal(dim(x1), c(10000, 3))