Changed defaults in 'data.frame2GRanges' to the ones used in the 'ann…

…otation' function
epigen · Jul 24, 2018 · a4ddd00 · a4ddd00
1 parent b496325
commit a4ddd00
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/annotations.R b/R/annotations.R
@@ -380,8 +380,8 @@ append.cpg.stats <- function(genome.data, regionlist) {
 #'
 #' @author Yassen Assenov
 #' @export
-data.frame2GRanges <- function(dframe, ids = rownames(dframe), chrom.column = "chromosome", start.column = "start",
-	end.column = "end", strand.column = NULL, assembly = "hg19", sort.result = TRUE) {
+data.frame2GRanges <- function(dframe, ids = rownames(dframe), chrom.column = "Chromosome", start.column = "Start",
+	end.column = "End", strand.column = NULL, assembly = "hg19", sort.result = TRUE) {
 	if (is.character(chrom.column)) { chrom.column <- which(colnames(dframe) == chrom.column) }
 	if (is.character(start.column)) { start.column <- which(colnames(dframe) == start.column) }
 	if (is.character(end.column)) { end.column <- which(colnames(dframe) == end.column) }