diff --git a/src/R/consensusPeaks.R b/src/R/consensusPeaks.R
index c4dd77240fb8d418a0cd510900171a136951c3b2..cb451a8a01681f7359cc22f09305ab195389eee4 100755
--- a/src/R/consensusPeaks.R
+++ b/src/R/consensusPeaks.R
@@ -205,18 +205,17 @@ for (GCBiasStrCur in par.l$GCBiasStr) {
                 
                 consensusPeaks.df = consensus$peaks[[nrow(sampleMetaData.df) + 1]] %>%
                     as_tibble() %>%
-                    dplyr::rename(chr = V1, start = V2, end = V3, pvalue = V4) %>%
-                    dplyr::mutate(length = end - start,
-                           annotation = paste0(chr, ":", start, "-", end),
+                    dplyr::mutate(length = End - Start,
+                           annotation = paste0(Chr, ":", Start, "-", End),
                            strand = ".") %>%
-                    dplyr::select(chr, start, end, annotation, pvalue, strand)
+                    dplyr::select(Chr, Start, End, annotation, Score, strand)
                 
                 
                 consensusPeaks.df
                 
             }, error = function(e) {
                 
-                consensusPeaks.df = tribble(~chr, ~start, ~end, ~annotation, ~pvalue, ~strand)
+                consensusPeaks.df = tribble(~Chr, ~Start, ~End, ~annotation, ~Score, ~strand)
                 consensusPeaks.df
             })