finds train/test split that is representative of nested cv

BaderLab · Feb 20, 2018 · bd6baa2 · bd6baa2
1 parent d2b9ba7
commit bd6baa2
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/misc/PanCancer/getMedianIter.R b/misc/PanCancer/getMedianIter.R
@@ -0,0 +1,13 @@
+# get iteration with performance closest to average 
+
+datDir <- "/Users/shraddhapai/Dropbox/netDx/BaderLab/2017_TCGA_GBM/output/pruned_180204"
+
+require(netDx)
+predSet <- sprintf("%s/rng%i/all/cutoff9/predictionResults.txt",datDir,1:100)
+perf <- plotPerf(predSet,predClasses=c("SURVIVEYES","SURVIVENO"))
+auroc <- unlist(lapply(perf,function(x) x$auroc))
+idx <- which.min(abs(auroc-mean(auroc)))
+print(idx)
+
+
+