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)
  }