No commit message

Zhenglei-BCS · Mar 27, 2019 · dc46c7b · dc46c7b
1 parent 18b74fb
commit dc46c7b
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R-files/SimulationSpecificSettings.R b/R-files/SimulationSpecificSettings.R
@@ -819,13 +819,13 @@ Please wait while simulations are running.
       for (file in file_list){
         if (!exists("PFT")){
           # save also MC run ID
-          MCtmp <- unlist(strsplit(file, "_"))[7]
+          MCtmp <- unlist(strsplit(file, "_"))[8]
           MC <- unlist(strsplit(MCtmp, ".txt"))
           temp <-  fread(file, sep="\t")
           temp[,MC:=MC]
           PFT<-temp
         } else {
-          MCtmp <- unlist(strsplit(file, "_"))[7]
+          MCtmp <- unlist(strsplit(file, "_"))[8]
           MC <- unlist(strsplit(MCtmp, ".txt"))
           temp <-  fread(file, sep="\t")
           temp[,MC:=MC]
@@ -853,15 +853,15 @@ Please wait while simulations are running.
       file_list <- list.files(pattern="Grd__*")
       for (file in file_list){
         if (!exists("GRD")){
-          MCtmp <- unlist(strsplit(file, "_"))[7]
+          MCtmp <- unlist(strsplit(file, "_"))[8]
           MC <- unlist(strsplit(MCtmp, ".txt"))
           temp <-  fread(file, sep="\t")
           temp[,MC:=MC]
           GRD<-temp
         }
         # if the merged dataset does exist, append to it
         else {
-          MCtmp <- unlist(strsplit(file, "_"))[7]
+          MCtmp <- unlist(strsplit(file, "_"))[8]
           MC <- unlist(strsplit(MCtmp, ".txt"))
           temp <-  fread(file, sep="\t")
           temp[,MC:=MC]