fixed Train

R/Surr_Train.R

@@ -2,7 +2,7 @@
 
 ### Marco De Lucia, delucia@gfz-potsdam.de, 2009-2018
 ### Janis Jatnieks, janisj@gfz-potsdam.de, jatnieks@janis.es
-### Time-stamp: "Last modified 2018-05-09 01:01:30 delucia"
+### Time-stamp: "Last modified 2018-05-09 01:07:22 delucia"
 ### Licence: LGPL version 2.1
 
 ## resolve dependencies automatically
@@ -1984,10 +1984,6 @@ Train <- function(surrogate_types = c(),
 {  	  
     ## run only the preprocessing methods that have not been blacklisted
     preprocessing_ind <- setdiff( preprocessing_ind, preprocessing_blacklist )
-    ## r_digits <<- r_digits ## this can be re-used by the SelectedSurrogate later
-    if (!exists("saved_simulation_data")) {
-        saved_simulation_data <<- "calcite_pqc_pqc_nagra_psi_dat_50_0_5_0_1_sim.Rdata"
-    }
     
     start_up( session_path = saved_simulation_data, use_cores=use_cores) ## load libraries etc