From f435cb9974c43df3216c8a1437f8f9afa2356506 Mon Sep 17 00:00:00 2001
From: Luca Coraggio <luca.coraggio@unina.it>
Date: Mon, 17 Apr 2023 18:10:05 +0000
Subject: version 2.0.4

---
 R/rmad.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'R')

diff --git a/R/rmad.R b/R/rmad.R
index 5e9a1d7..18e7db3 100644
--- a/R/rmad.R
+++ b/R/rmad.R
@@ -37,7 +37,8 @@ rmad <- function(x, y = NULL, na.rm = FALSE, even.correction = FALSE, num.thread
     R <- Matrix(1, nrow = p, ncol = p, sparse = FALSE)
     R[lower.tri(R, diag = FALSE)] <- u
     R <- forceSymmetric(R, uplo = "L")
-    R <- as(R, "dspMatrix")
+    R <- as(R, "packedMatrix")
+
 
     ## attach dimnames if needed
     if (!is.null(colnames_original)) {
-- 
cgit v1.2.3