diff kinatestid_r/Kinatest-R_part1.R @ 9:f80306fc5d69 draft

Uploaded

--- a/kinatestid_r/Kinatest-R_part1.R	Thu Feb 08 12:33:36 2018 -0500
+++ b/kinatestid_r/Kinatest-R_part1.R	Thu Feb 08 13:48:59 2018 -0500
@@ -3,7 +3,7 @@
 NegativeSubstrateList<- read.csv("input2", stringsAsFactors=FALSE)
 SubstrateBackgroundFrequency<- read.csv("input3", stringsAsFactors=FALSE)
 
-ScreenerFilename<-"screener7-7.csv"
+ScreenerFilename<-"screener"
 
 
 
@@ -588,9 +588,11 @@
 SDtableu<-SDtable
 HeaderSD<-c(-7:7)
 SDtable<-rbind(HeaderSD,SDtableu)
+row.names(SDtable)<-NULL
 SDtable<-data.frame(SetOfAAs,SDtable)
 
 PercentTable<-rbind(HeaderSD,PercentTable)
+row.names(PercentTable)<-NULL
 PercentTable<-data.frame(SetOfAAs,PercentTable)
 numberofY<-as.numeric(SubstrateBackgroundFrequency$Number.of.Y)
 numberofY<-numberofY[!is.na(numberofY)]
@@ -1095,6 +1097,7 @@
 EPMtableu<-EPMtable
 HeaderSD<-c(-7:7)
 EPMtableu<-rbind(HeaderSD,EPMtableu)
+row.names(EPMtableu)<-NULL
 EPMtableu<-data.frame(SetOfAAs,EPMtableu)
 
 write.table("Site Selectivity Matrix", file = FILENAME2, append = TRUE, sep = ",", row.names = FALSE, col.names = FALSE)
@@ -1108,3 +1111,4 @@
 write.table(x=c("Endogenous Probability Matrix"),file=FILENAME2,append = TRUE,sep=",", row.names = FALSE, col.names = FALSE)
 write.table(EPMtableu,file = FILENAME2, append = TRUE,sep = ",",row.names = FALSE, col.names = FALSE)
 write.table(NormalizationScore, file = FILENAME2, append = TRUE,sep = ",",row.names = FALSE, col.names = FALSE)
+