Commit d49649bc authored by Marco De Lucia's avatar Marco De Lucia
Browse files

Fixed dumping Fin/Fout

parent 5e95b130
......@@ -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 )
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment