Mercurial > repos > jfb > kinatest_scoring_function

comparison scoring function/KinatestFisherScoring.R @ 5:2f5855ff5a04 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:51:34 -0400
parents 9ade210d19be
children 153ed20b5aab
comparison
equal deleted inserted replaced
4:1d532e5664dd 5:2f5855ff5a04
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 #args = c("ABL","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC")
5 TodaysKinase<-as.character(args[1]) 5 TodaysKinase<-as.character(args[1])
6 6
7 CharTable<-read.csv("Fisher-Char.csv", header = FALSE,stringsAsFactors = FALSE) 7 CharTable<-read.csv("Fisher-Char.csv", header = FALSE,stringsAsFactors = FALSE)
8 ThisKinSheet<-read.csv("Fisher-Table.csv", header=FALSE, stringsAsFactors=FALSE) 8 ThisKinSheet<-read.csv("Fisher-Table.csv", header=FALSE, stringsAsFactors=FALSE)