Fix regressPC function.

ccb-hms · Sep 7, 2024 · 23e7514 · 23e7514
1 parent a56cd81
commit 23e7514
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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
             }
         }
     }