Previous changeset 19:9e520c365624 (2018-04-17) |
Commit message:
Uploaded |
modified:
kinatestid_r/Kinatest-R.R |
b |
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 |
b |
@@ -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) |