diff scoring function/KinatestFisherScoring.R @ 3:9ade210d19be draft

Uploaded

--- a/scoring function/KinatestFisherScoring.R	Sat Apr 27 15:17:30 2019 -0400
+++ b/scoring function/KinatestFisherScoring.R	Sat Apr 27 15:34:05 2019 -0400
@@ -1,6 +1,7 @@
 # system.time({
 
-args = commandArgs(trailingOnly=TRUE)
+#args = commandArgs(trailingOnly=TRUE)
+#args = c("ABL","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC","ABC")
 TodaysKinase<-as.character(args[1])
 
 CharTable<-read.csv("Fisher-Char.csv", header = FALSE,stringsAsFactors = FALSE)
@@ -12,19 +13,19 @@
 
 
 
-M6<-args[2]
-M5<-args[3]
-M4<-args[4]
-M3<-args[5]
-M2<-args[6]
-M1<-args[7]
-D0<-args[8]
-P1<-args[9]
-P2<-args[10]
-P3<-args[11]
-P4<-args[12]
-P5<-args[13]
-P6<-args[14]
+M6<-as.character(args[2])
+M5<-as.character(args[3])
+M4<-as.character(args[4])
+M3<-as.character(args[5])
+M2<-as.character(args[6])
+M1<-as.character(args[7])
+D0<-as.character(args[8])
+P1<-as.character(args[9])
+P2<-as.character(args[10])
+P3<-as.character(args[11])
+P4<-as.character(args[12])
+P5<-as.character(args[13])
+P6<-as.character(args[14])
 
 
 A=1