# HG changeset patch
# User jfb
# Date 1527260051 14400
# Node ID f7a6a3ec77104a6f5ebe59690aa43b30e72cf37b
# Parent  9e520c365624d4c9944d5bac24975a9e50342f29
Uploaded

diff -r 9e520c365624 -r f7a6a3ec7710 kinatestid_r/Kinatest-R.R
--- a/kinatestid_r/Kinatest-R.R	Tue Apr 17 17:03:39 2018 -0400
+++ b/kinatestid_r/Kinatest-R.R	Fri May 25 10:54:11 2018 -0400
@@ -2014,3 +2014,11 @@
 # RanksPeptides<-rbind.data.frame(header,RanksPeptides)
 write.table(x="Off Target Kinase activity (your kinase of interest should have zeros here because it is ON-target)",file = FILENAME3,append = FALSE,row.names = FALSE,col.names = TRUE,sep = ",")
 write.table(RanksPeptides,file = FILENAME3,append = FALSE,row.names = FALSE,col.names = TRUE,sep = ",")
+
+PositivesWithScores<-as.data.frame(ImportedSubstrateList) 
+PositiveOutput<-cbind(PositivesWithScores,PositiveWeirdScores)
+write.table(PositiveOutput,file = FILENAME4, sep = ",", na="",row.names = FALSE, append = FALSE)
+
+NegativeOutput<-as.data.frame(NegativeSubstrateList)
+NegativeOutput<-cbind(NegativeOutput,NegativeWeirdScores)
+write.table(NegativeOutput,file = FILENAME5,sep = ",",na="",row.names = FALSE, append = FALSE)