changeset 5:aff861ca6e2b draft

Uploaded
author jfb
date Mon, 14 Jan 2019 15:40:43 -0500
parents 76f8ac0fe858
children eb89ff215fb8
files KT-ID fisher test/7-7-fisher-galaxy_working.R
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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)