changeset 20:f7a6a3ec7710 draft default tip

Uploaded
author jfb
date Fri, 25 May 2018 10:54:11 -0400
parents 9e520c365624
children
files kinatestid_r/Kinatest-R.R
diffstat 1 files changed, 8 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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)