v2 new

HeLab · Mar 11, 2022 · d7d2cd1 · d7d2cd1
1 parent 240af28
commit d7d2cd1
Show file tree

Hide file tree

Showing 2 changed files with 12,646 additions and 2 deletions.
diff --git a/batchRuns/ODESImmunity_v2.R b/batchRuns/ODESImmunity_v2.R
@@ -6,6 +6,7 @@ paramFile<-args[1]
 No<-as.integer(args[2])
 resultsFolder <-args[3]
 WildStrainOnly<-as.integer(args[4])
+jobid<-as.integer(args[5])
 #paramFile<-"paramList.csv"
 #No<-1
 #resultsFolder<-"./"
@@ -425,11 +426,11 @@ out2<-out2%>%mutate(m_N = P_acc_N/(NU+ND),m_S =P_acc_S/(SU+SD), m_A = P_acc_A/(A
 
 outFile<-paste(resultsFolder,"/",strsplit(paramFile,split="[.]")[[1]][1],"_results.csv",sep="")
 if(file.exists(outFile)){
-  write.table(as.data.frame(cbind(currentPara,tail(out2,1))),
+  write.table(as.data.frame(cbind(jobid,currentPara,tail(out2,1))),
             file = outFile, row.names=F, col.names=F,sep=",",
             quote=F,append=T)
 }else{
-  write.csv(as.data.frame(cbind(currentPara,tail(out2,1))),
+  write.csv(as.data.frame(cbind(jobid,currentPara,tail(out2,1))),
             file = outFile, row.names=F, 
             quote=F)