Mercurial > repos > jfb > kinatest_scoring_function

comparison scoring function/KinatestFisherScoring.R @ 6:153ed20b5aab draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author jfb
date Sat, 27 Apr 2019 16:09:28 -0400
parents 2f5855ff5a04
children 3437c03bb21e
comparison
equal deleted inserted replaced
5:2f5855ff5a04 6:153ed20b5aab
1 # system.time({ 1 # system.time({
2
3 options(warn=-1)
2 4
3 args = commandArgs(trailingOnly=TRUE) 5 args = commandArgs(trailingOnly=TRUE)
4 #args = c("ABL","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC") 6 #args = c("ABL","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC")
5 TodaysKinase<-as.character(args[1]) 7 TodaysKinase<-as.character(args[1])
6 8
1258 #I want to see how much of the sequence space we still have available. I should do so 1260 #I want to see how much of the sequence space we still have available. I should do so
1259 1261
1260 write.table(RanksPeptides,file = "output.csv",append = FALSE,row.names = FALSE,col.names = TRUE,sep = ",") 1262 write.table(RanksPeptides,file = "output.csv",append = FALSE,row.names = FALSE,col.names = TRUE,sep = ",")
1261 1263
1262 # }) 1264 # })
1265
1266 options(warn=0)