# HG changeset patch
# User jfb
# Date 1547492115 18000
# Node ID 203c72c1c2ea21edeb063cda6be86524155dc6a3
# Parent  31f6858163bd69ab02a9b412327eefa0025d7a5d
Uploaded

diff -r 31f6858163bd -r 203c72c1c2ea 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:33:18 2019 -0500
+++ b/KT-ID fisher test/7-7-fisher-galaxy_working.R	Mon Jan 14 13:55:15 2019 -0500
@@ -3,8 +3,9 @@
 
 PositiveSubstrateList<- read.csv("substrates.csv", stringsAsFactors=FALSE)
 NegativeSubstrateList<- read.csv("negatives.csv", stringsAsFactors=FALSE)
-SubstrateBackgroundFrequency<- read.csv("SBF.csv", stringsAsFactors=FALSE)
+SubstrateBackgroundFrequency<- read.csv("SBF.csv", stringsAsFactors=FALSE,header = FALSE)
 SubstrateBackgroundFrequency<-t(SubstrateBackgroundFrequency)
+SubstrateBackgroundFrequency<-SubstrateBackgroundFrequency[2:nrow(SubstrateBackgroundFrequency),]
 
 ScreenerFilename<-"screener"
 screaner<-read.csv(ScreenerFilename, header = FALSE, stringsAsFactors = FALSE)