adapt if C return a null value

2025-03-30 00:03:42 +02:00 · 2025-03-30 00:03:42 +02:00 · 2f55fd84d0
commit 2f55fd84d0
parent 8eccb63844
1 changed files with 1 additions and 1 deletions
--- a/R/compare.R
+++ b/R/compare.R
@ -38,7 +38,7 @@ compare <- function(
                    }
                })

-                if (is.null(ctc)) {
+                if (is.null(ctc) & !is.null(cc)) {
                    colnames(cc) <- colnames(dat)[-nc]
                    if (espresso) {
                        soles <- apply(