From a13d86b92dcce356b7710ae60be7569d05e102e0 Mon Sep 17 00:00:00 2001 From: Erik de Vries Date: Sun, 9 Dec 2018 13:04:03 +0100 Subject: [PATCH] modelizer: added some more debug output --- R/modelizer.R | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/R/modelizer.R b/R/modelizer.R index 67c15de..4105368 100644 --- a/R/modelizer.R +++ b/R/modelizer.R @@ -73,7 +73,9 @@ modelizer <- function(dfm, cores_outer, cores_grid, cores_inner, cores_feats, se mc.cores = cores_inner ) ) + print(res) print(res[1,1]) + print('inner_cv') return(cbind(as.data.frame(t(colMeans(select(res, 1:`Balanced Accuracy`)))),params)) } @@ -96,6 +98,9 @@ modelizer <- function(dfm, cores_outer, cores_grid, cores_inner, cores_feats, se cores_inner = cores_inner, mc.cores = cores_grid) ) + print(res) + print(res[1,1]) + print('outer_cv') # Determine optimum hyperparameters within outer fold training set optimum <- res[which.max(res[,opt_measure]),] %>% select(percentiles: ncol(.)) @@ -117,6 +122,9 @@ modelizer <- function(dfm, cores_outer, cores_grid, cores_inner, cores_feats, se cores_inner = cores_inner, mc.cores = cores_grid) ) + print(res) + print(res[1,1]) + print('line 126, final model parameter optimization') return(res) } }