From cd8e9c46341e878907e99dbc8baea2e1cf089d51 Mon Sep 17 00:00:00 2001
From: Alexander_Kabui
Date: Fri, 21 Feb 2025 16:47:25 +0300
Subject: feat: Temporary disable performing genome scan with covariates for
 RQTL2.

---
 scripts/rqtl2_wrapper.R | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

(limited to 'scripts/rqtl2_wrapper.R')

diff --git a/scripts/rqtl2_wrapper.R b/scripts/rqtl2_wrapper.R
index 5e4622c..59467c6 100644
--- a/scripts/rqtl2_wrapper.R
+++ b/scripts/rqtl2_wrapper.R
@@ -268,13 +268,14 @@ perform_genome_scan <- function(cross,
   if (method == "LMM") {
     # provide parameters for this
     cat("Performing scan1 using Linear mixed model\n")
+  
     out  <- scan1(
       genome_prob,
       cross$pheno,
       kinship = kinship,
-      addcovar = covar,
-      Xcovar = Xcovar,
-      intcovar = intcovar,
+      # addcovar = covar,
+      # Xcovar = Xcovar,
+      # intcovar = intcovar,
       model = model,
       cores = NO_OF_CORES
     )
@@ -284,10 +285,10 @@ perform_genome_scan <- function(cross,
       genome_prob,
       cross$pheno,
       kinship = kinship,
-      addcovar = covar,
-      intcovar = intcovar,
+      # addcovar = covar,
+      # intcovar = intcovar,
       model = model,
-      Xcovar = Xcovar,
+      # Xcovar = Xcovar,
       cores = NO_OF_CORES
     )
   }
-- 
cgit 1.4.1