add metadata(ods)[["useOHTtoObtainQ"]] <- FALSE

gagneurlab · Aug 14, 2024 · 7fa37b1 · 7fa37b1
1 parent ddef5b6
commit 7fa37b1
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/drop/modules/aberrant-expression-pipeline/OUTRIDER/runOutrider.R b/drop/modules/aberrant-expression-pipeline/OUTRIDER/runOutrider.R
@@ -70,6 +70,7 @@ if (oht){
 
   ods <- findEncodingDim(ods, params = pars_q, implementation = implementation)
   opt_q <- getBestQ(ods)
+  metadata(ods)[["useOHTtoObtainQ"]] <- FALSE
 }
 
 ## fit OUTRIDER