# HG changeset patch
# User jfb
# Date 1519763052 18000
# Node ID 00e1ca8f787cede5f1e23615ffcc8a07594345b4
# Parent  eb1ba6a4efe808e02b9ce59e68353843fc77892e
Uploaded

diff -r eb1ba6a4efe8 -r 00e1ca8f787c kinatestid_r/Kinatest-R.R
--- a/kinatestid_r/Kinatest-R.R	Tue Feb 27 15:10:33 2018 -0500
+++ b/kinatestid_r/Kinatest-R.R	Tue Feb 27 15:24:12 2018 -0500
@@ -587,10 +587,10 @@
 PercentTable<-rbind(HeaderSD,PercentTable)
 row.names(PercentTable)<-NULL
 PercentTable<-data.frame(SetOfAAs,PercentTable)
-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)