correction print.treetest

R/treediff.R

@@ -46,9 +46,11 @@
 #' @importFrom dplyr group_by
 #' @importFrom dplyr summarise
 #' @importFrom limma squeezeVar
+#' @importFrom reshape2 colsplit
 #' @importFrom stats cophenetic
 #' @importFrom stats pt
 #'
+#'
 #' @examples
 #'
 #' leaves <- c(100,120,50,80)
@@ -158,8 +160,8 @@ print.treeTest <- function(x, prefix = "\t",...){
   cat(strwrap(x$method, prefix = prefix), sep = "\n")
   cat("\n")
   cat("data:  ", x$data.name, "\n", sep = "")
-  cat("p-value:  ", "\n", sep = "")
-  cat(strwrap(round(x$p.value, 4), prefix = prefix), sep = "\n")
+  options("max.print" = 5)
+  print(colsplit(x$p.value, " ", "p.value :"))
 }
 
 compute_squeeze <- function(dist_coph, replicates) {