Mercurial > repos > jfb > kinatest_r_7_7testing
diff kinatestid_r/Kinatest-R.R @ 20:f7a6a3ec7710 draft default tip
Uploaded
| author | jfb |
|---|---|
| date | Fri, 25 May 2018 10:54:11 -0400 |
| parents | 9e520c365624 |
| children |
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)