Merge branch 'patch-1' into 'master'

Update Surr_Train.R to fix an incorrect length of Residuals columns being…

See merge request !1

R/Surr_Train.R

@@ -1264,7 +1264,7 @@ write_evals <- function( hist_bins = 25, write_errors=TRUE, Surrogate_performanc
             ## class(model_list[[1]])
         }
         else if (write_errors) { 
-            Residuals <<- c( Residuals, list( rep(NA, nrow(Fout) ) )) ## list encapsulates it into nested level
+            Residuals <<- c( Residuals, list( rep(NA, nrow(SRes) ) )) ## list encapsulates it into nested level
         }
     })
 }