From 01fa19bed1dc98c2cb584d8143a3d28c32c101c8 Mon Sep 17 00:00:00 2001
From: nataliabenova <148197626+nataliabenova@users.noreply.github.com>
Date: Mon, 29 Dec 2025 18:15:52 +0000
Subject: [PATCH] Change shrink_lmfit parameters from E.prior to G.prior

---
 R/TranCi.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/TranCi.R b/R/TranCi.R
index bdbeb45..1f2e983 100644
--- a/R/TranCi.R
+++ b/R/TranCi.R
@@ -352,7 +352,7 @@ varReg <- function(output, output2,
     design <- model.matrix(~factor(group))
     ##
     fit <- limma::lmFit(e_exp, design)
-    fit <- eRNAkit::shrink_lmfit(fit,E.prior["df"], E.prior["s2"])
+    fit <- eRNAkit::shrink_lmfit(fit,G.prior["df"], G.prior["s2"])
 
     fit$var <- v
     fit$ID <- rownames(e_exp)