add functions

[don_microarray.git] / R / significant_cut_util.R

diff --git a/R/significant_cut_util.R b/R/significant_cut_util.R
new file mode 100644 (file)
index 0000000..523d1c3
--- /dev/null
+++ b/R/significant_cut_util.R
@@ -0,0 +1,10 @@
+significant.cut.util <-
+  function(significant.cuts,experiments,cut="complete.cut") {
+    result <- NULL
+    for (experiment in experiments) {
+      result <- cbind(result,
+                      significant.cuts[[experiment]][[cut]])
+    }
+    colnames(result) <- experiments
+    return(result)
+  }