Skip to content
Snippets Groups Projects
Commit e6aba3c1 authored by Janis Jatnieks's avatar Janis Jatnieks
Browse files

Update Surr_Train.R to specifically export error indexes.

parent 732eb5e8
No related branches found
No related tags found
No related merge requests found
...@@ -1321,7 +1321,12 @@ WriteModelResiduals <- function(write_filepath_prefix, training_samples, seed) { ...@@ -1321,7 +1321,12 @@ WriteModelResiduals <- function(write_filepath_prefix, training_samples, seed) {
## write out only for those that have non-zero columns ## write out only for those that have non-zero columns
fwrite( SelectActiveColumns(best_res), file = paste0(ensemble_name,"_residuals_best.csv" )) fwrite( SelectActiveColumns(best_res), file = paste0(ensemble_name,"_residuals_best.csv" ))
## residuals are errors on validation data set - created as inverse from these indexes ## 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 ## once we have screened all the desired possibilities, we can try to
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment