From 23e7514c3687d7dd49b1dd7be72a96a30af871e6 Mon Sep 17 00:00:00 2001
From: Anthony Christidis <anthony.christidis@stat.ubc.ca>
Date: Sat, 7 Sep 2024 16:00:30 -0400
Subject: [PATCH] Fix regressPC function.

---
 R/regressPC.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/regressPC.R b/R/regressPC.R
index 919d910..c94aebd 100644
--- a/R/regressPC.R
+++ b/R/regressPC.R
@@ -282,7 +282,7 @@ adjustPValues <- function(regress_res,
             coeffs$p.adjusted <- p.adjusted
             
             # Update the coefficients table in the object
-            regress_res[["regression_summaries"]][[pc]][["regression_summaries"]] <- coeffs
+            regress_res[["regression_summaries"]][[pc]][["coefficients"]] <- coeffs
         }
         
     } else if (indep_var == "dataset"){
@@ -302,7 +302,7 @@ adjustPValues <- function(regress_res,
                 coeffs[["p.adjusted"]] <- p.adjusted
                 
                 # Update the coefficients table in the object
-                regress_res[[cell_type]][[pc_id]][["p.value"]] <- coeffs
+                regress_res[[cell_type]][[pc_id]][["coefficients"]] <- coeffs
             }
         }
     }