| ... | ... |
@@ -22,7 +22,7 @@ makeGRBs <- function(x, winSize=NULL, genes=NULL, ratio=1, |
| 22 | 22 |
names(xList) <- as.character(1:length(xList)) |
| 23 | 23 |
} |
| 24 | 24 |
x <- unlist(x) |
| 25 |
- x <- reduce(x) |
|
| 25 |
+ x <- reduce(x, ignore.strand=TRUE) |
|
| 26 | 26 |
cov <- coverage(x) |
| 27 | 27 |
|
| 28 | 28 |
# Guess winSize from genome size if NULL |
