R/significant_cut_util.R

   1 significant.cut.util <-
   2   function(significant.cuts,experiments,cut="complete.cut") {
   3     result <- NULL
   4     for (experiment in experiments) {
   5       result <- cbind(result,
   6                       significant.cuts[[experiment]][[cut]])
   7     }
   8     colnames(result) <- experiments
   9     return(result)
  10   }