Update Surr_Train.R to specifically export error indexes.

R/Surr_Train.R

@@ -1321,7 +1321,12 @@ WriteModelResiduals <- function(write_filepath_prefix, training_samples, seed) {
   ## write out only for those that have non-zero columns
   fwrite( SelectActiveColumns(best_res), file = paste0(ensemble_name,"_residuals_best.csv" ))
   ## residuals are errors on validation data set - created as inverse from these indexes
-  fwrite( as.data.table(inds), file = paste0(ensemble_name,"_training_idxs.csv" ) )
+  fwrite
+  ## err index export
+  err_inds = as.data.table( seq(nrow(Fout))[-inds] ) 
+  colnames( err_inds ) <- "err_inds"
+  fwrite( as.data.table(err_inds), file = paste0(ensemble_name,"_err_inds.csv" ) )
+  
 }
 
 ## once we have screened all the desired possibilities, we can try to