add NA p.values to make legacy code run

qmarcou · May 29, 2024 · 1a55920 · 1a55920
1 parent 921b71c
commit 1a55920
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/R/renewnetTPreg.R b/R/renewnetTPreg.R
@@ -501,6 +501,13 @@ renewnetTPreg <- function(s = 0,
           UPL = extract_stat_matrix("ci.ub"),
           n.failed.boot = NULL
         )
+      # FIXME Add non informative p.value field to conform with legacy code
+      CO[["p.value"]] <- matrix(NA,
+        nrow = length(vec.t),
+        ncol = ncol(CO$SD),
+        dimnames = dimnames(CO$SD)
+      )
+
       if (length(transitions) > 1) {
         co[[glue::glue("co{trans}")]] <- CO
       } else {