Mercurial > repos > jfb > kinatest_scoring_function

comparison scoring function/KinatestFisherScoring.R @ 3:9ade210d19be 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 15:34:05 -0400
parents ed9068208721
children 2f5855ff5a04
comparison
equal deleted inserted replaced
2:3de8a42a39f8 3:9ade210d19be
1 # system.time({ 1 # system.time({
2 2
3 args = commandArgs(trailingOnly=TRUE) 3 #args = commandArgs(trailingOnly=TRUE)
4 #args = c("ABL","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC")
4 TodaysKinase<-as.character(args[1]) 5 TodaysKinase<-as.character(args[1])
5 6
6 CharTable<-read.csv("Fisher-Char.csv", header = FALSE,stringsAsFactors = FALSE) 7 CharTable<-read.csv("Fisher-Char.csv", header = FALSE,stringsAsFactors = FALSE)
7 ThisKinSheet<-read.csv("Fisher-Table.csv", header=FALSE, stringsAsFactors=FALSE) 8 ThisKinSheet<-read.csv("Fisher-Table.csv", header=FALSE, stringsAsFactors=FALSE)
8 NormalizationScore<-CharTable[2,1] 9 NormalizationScore<-CharTable[2,1]
10 #so here's the question, do I want this file to be able to score using any EPM table as well? I guess I have to. 11 #so here's the question, do I want this file to be able to score using any EPM table as well? I guess I have to.
11 12
12 13
13 14
14 15
15 M6<-args[2] 16 M6<-as.character(args[2])
16 M5<-args[3] 17 M5<-as.character(args[3])
17 M4<-args[4] 18 M4<-as.character(args[4])
18 M3<-args[5] 19 M3<-as.character(args[5])
19 M2<-args[6] 20 M2<-as.character(args[6])
20 M1<-args[7] 21 M1<-as.character(args[7])
21 D0<-args[8] 22 D0<-as.character(args[8])
22 P1<-args[9] 23 P1<-as.character(args[9])
23 P2<-args[10] 24 P2<-as.character(args[10])
24 P3<-args[11] 25 P3<-as.character(args[11])
25 P4<-args[12] 26 P4<-as.character(args[12])
26 P5<-args[13] 27 P5<-as.character(args[13])
27 P6<-args[14] 28 P6<-as.character(args[14])
28 29
29 30
30 A=1 31 A=1
31 C=2 32 C=2
32 D=3 33 D=3