# HG changeset patch
# User jfb
# Date 1547488389 18000
# Node ID ae988a95b76111dcbeef2024c840e2d40bb1d9c7
# Parent  6f7fd13c1a0564b7d414ccb329af036de6876581
Uploaded

diff -r 6f7fd13c1a05 -r ae988a95b761 KT-ID fisher test/7-7-fisher-galaxy_working.R
--- a/KT-ID fisher test/7-7-fisher-galaxy_working.R	Mon Jan 14 11:12:59 2019 -0500
+++ b/KT-ID fisher test/7-7-fisher-galaxy_working.R	Mon Jan 14 12:53:09 2019 -0500
@@ -445,6 +445,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)