Fixed dumping Fin/Fout

R/Surr_Train.R

@@ -1292,7 +1292,9 @@ WriteModel <- function(write_filepath_prefix,training_samples,seed) {
     fwrite ( perftop,file= paste0(ensemble_name,"_each_best.csv" ))
     fwrite ( Sperf, file = paste0(ensemble_name,"_all.csv" ))
     ## drop all the redundant large datastructures before we save the image
-    mrm(c("Fin","Fout","Oin","Oout","Residuals","combined_data","out","all_res","best_res","SRes"))
+    fwrite ( Fin,file= paste0(ensemble_name,"_Fin.csv" ))
+    fwrite ( Fout, file=paste0(ensemble_name,"_Fout.csv" ))
+    ## mrm(c("Fin","Fout","Oin","Oout","Residuals","combined_data","out","all_res","best_res","SRes"))
     save.image( file=dumpfilename )
 }