# HG changeset patch
# User jfb
# Date 1547497166 18000
# Node ID 76f8ac0fe858ddfa9b1284bffe8a576cb5021fd0
# Parent  203c72c1c2ea21edeb063cda6be86524155dc6a3
Uploaded

diff -r 203c72c1c2ea -r 76f8ac0fe858 KT-ID fisher test/7-7-fisher-galaxy_working.R
--- a/KT-ID fisher test/7-7-fisher-galaxy_working.R	Mon Jan 14 13:55:15 2019 -0500
+++ b/KT-ID fisher test/7-7-fisher-galaxy_working.R	Mon Jan 14 15:19:26 2019 -0500
@@ -447,8 +447,7 @@
   # if (referencenumber==FALSE)
   #   ThisMatix<-array(data=NA, dim = c(21,9))
   if (referencenumber!=FALSE){
-    print(pattern)
-    print(referencenumber)
+
     motifs<-unlist(Genelist[[referencenumber]])
     therow<-c(1:15)
     for (a in 1:length(motifs)) {