Mercurial > repos > jfb > kinatest_r_7_7testing
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 19:9e520c365624 | 20:f7a6a3ec7710 |
|---|---|
| 2012 | 2012 |
| 2013 # header<-colnames(RanksPeptides) | 2013 # header<-colnames(RanksPeptides) |
| 2014 # RanksPeptides<-rbind.data.frame(header,RanksPeptides) | 2014 # RanksPeptides<-rbind.data.frame(header,RanksPeptides) |
| 2015 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 = ",") | 2015 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 = ",") |
| 2016 write.table(RanksPeptides,file = FILENAME3,append = FALSE,row.names = FALSE,col.names = TRUE,sep = ",") | 2016 write.table(RanksPeptides,file = FILENAME3,append = FALSE,row.names = FALSE,col.names = TRUE,sep = ",") |
| 2017 | |
| 2018 PositivesWithScores<-as.data.frame(ImportedSubstrateList) | |
| 2019 PositiveOutput<-cbind(PositivesWithScores,PositiveWeirdScores) | |
| 2020 write.table(PositiveOutput,file = FILENAME4, sep = ",", na="",row.names = FALSE, append = FALSE) | |
| 2021 | |
| 2022 NegativeOutput<-as.data.frame(NegativeSubstrateList) | |
| 2023 NegativeOutput<-cbind(NegativeOutput,NegativeWeirdScores) | |
| 2024 write.table(NegativeOutput,file = FILENAME5,sep = ",",na="",row.names = FALSE, append = FALSE) |