fix open bug

2019-05-02 21:52:51 -04:00
parent 8822d5036d
commit 1b8e6cbbd5
2 changed files with 3 additions and 1 deletions
--- a/example/Workflow/HelperFunctions.R
+++ b/example/Workflow/HelperFunctions.R
@@ -17,12 +17,14 @@ ReadSubphase<-function(PATH){
 ReadTimelog<-function(PATH){
 	FILE=paste0(PATH,"/timelog.csv")
 	D<-read.csv(file=FILE,head=TRUE,sep=" ")
+	D$time<-seq(0,nrow(D))
 	return(D)
 }

 ReadRelperm<-function(PATH){
 	FILE=paste0(PATH,"/relperm.csv")
 	D<-read.csv(file=FILE,head=TRUE,sep=" ")
+	D$Case<-PATH

 	p<-ggplot(D)+
 	  geom_line(aes(sat.water,eff.perm.oil,color="oil"))+