diff options
| author | Luca Coraggio <luca.coraggio@unina.it> | 2023-04-17 18:10:05 +0000 |
|---|---|---|
| committer | cran-robot <csardi.gabor+cran@gmail.com> | 2023-04-17 18:10:05 +0000 |
| commit | f435cb9974c43df3216c8a1437f8f9afa2356506 (patch) | |
| tree | 361d1cb7ca8a649080f525e3c3d7115bf21cc2ef /R/rmad.R | |
| parent | 4690747837f7266059dbd56690b52fe51aa5bd2e (diff) | |
version 2.0.4
Diffstat (limited to 'R/rmad.R')
| -rw-r--r-- | R/rmad.R | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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)) { |