# HG changeset patch
# User jfb
# Date 1547490798 18000
# Node ID 31f6858163bd69ab02a9b412327eefa0025d7a5d
# Parent  ae988a95b76111dcbeef2024c840e2d40bb1d9c7
Uploaded

diff -r ae988a95b761 -r 31f6858163bd KT-ID fisher test/7-7-fisher-galaxy_working.R
--- a/KT-ID fisher test/7-7-fisher-galaxy_working.R	Mon Jan 14 12:53:09 2019 -0500
+++ b/KT-ID fisher test/7-7-fisher-galaxy_working.R	Mon Jan 14 13:33:18 2019 -0500
@@ -4,6 +4,7 @@
 PositiveSubstrateList<- read.csv("substrates.csv", stringsAsFactors=FALSE)
 NegativeSubstrateList<- read.csv("negatives.csv", stringsAsFactors=FALSE)
 SubstrateBackgroundFrequency<- read.csv("SBF.csv", stringsAsFactors=FALSE)
+SubstrateBackgroundFrequency<-t(SubstrateBackgroundFrequency)
 
 ScreenerFilename<-"screener"
 screaner<-read.csv(ScreenerFilename, header = FALSE, stringsAsFactors = FALSE)