# HG changeset patch
# User jfb
# Date 1547498443 18000
# Node ID aff861ca6e2bacf863fd63ae40b1d4432af0e596
# Parent  76f8ac0fe858ddfa9b1284bffe8a576cb5021fd0
Uploaded

diff -r 76f8ac0fe858 -r aff861ca6e2b KT-ID fisher test/7-7-fisher-galaxy_working.R
--- a/KT-ID fisher test/7-7-fisher-galaxy_working.R	Mon Jan 14 15:19:26 2019 -0500
+++ b/KT-ID fisher test/7-7-fisher-galaxy_working.R	Mon Jan 14 15:40:43 2019 -0500
@@ -658,10 +658,10 @@
 
 SetOfAAs<-matrix(data = SetOfAAs,ncol = 1)
 
-numberofY<-as.numeric(SubstrateBackgroundFrequency$Number.of.Y)
+numberofY<-as.numeric(SubstrateBackgroundFrequency[,34])
 numberofY<-numberofY[!is.na(numberofY)]
 
-numberofPY<-as.numeric(SubstrateBackgroundFrequency$Number.of.pY)
+numberofPY<-as.numeric(SubstrateBackgroundFrequency[,35])
 numberofPY<-numberofPY[!is.na(numberofPY)]
 
 NormalizationScore<-sum(numberofPY)/sum(numberofY)