1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
### =========================================================================
### VRangesList: Where there is a Ranges, there must be a List
### -------------------------------------------------------------------------
###
VRangesList <- function(...) {
new("SimpleVRangesList", GenomicRangesList(...))
}
setMethod("stackSamples", "VRangesList", function(x) {
stacked <- unlist(x, use.names=FALSE)
if (!is.null(names(x)))
sampleNames(stacked) <- Rle(names(x), elementLengths(x))
stacked
})
|
