fixed allow_neg_cols in demo-eq-TrainMultiple

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-07 00:06:19 delucia"
+### Time-stamp: "Last modified 2018-05-09 01:01:30 delucia"
 ### Licence: LGPL version 2.1
 
 ## resolve dependencies automatically
@@ -1973,7 +1973,7 @@ Train <- function(surrogate_types = c(),
                   ## forced on the surrogate completely from the
                   ## outside
                   external=c("Time","Pressure"),
-                  allow_neg_cols=c("Pressure","Charge"), #,multiround = c(9,6)
+                  allow_neg_cols=c("pe"), #,multiround = c(9,6)
                   multiround = c(), #,exclude_output_columns = c("e")
                   train_para=TRUE, run_para=FALSE, preproc_para=TRUE,
                   use_cores = 0 ,tuner = FALSE, ## you can apply a rounding specification, but it usually does more harm than good

demo/demo-eq-TrainMultiple.R

@@ -17,6 +17,7 @@ Train(c("PolyMARS", "glmStepAIC", "MARS"),
      seed = 2305,
      train_para = TRUE,
      run_para = TRUE,
+     allow_neg_cols="pe",
      preproc_para = FALSE,
      selection_criteria = "MAD",
      write_full_residuals=FALSE,