From 1a55920392b3468219452c0654f41de47d42fa94 Mon Sep 17 00:00:00 2001
From: Quentin Marcou <18257721+qmarcou@users.noreply.github.com>
Date: Wed, 29 May 2024 15:05:46 +0200
Subject: [PATCH] add NA p.values to make legacy code run

---
 R/renewnetTPreg.R | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/R/renewnetTPreg.R b/R/renewnetTPreg.R
index a4f78a0..19b5d51 100644
--- 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 {