prototype = prototype(elementType = "RleViews"),
RleViewsList(rleList = subject, rangesList = start))
RleViewsList <- function(..., rleList, rangesList, universe = NULL)
if (!missing(rleList) && !missing(rangesList)) {
stop("'...' must be empty when 'rleList' and 'rangesList' are specified")
stop("'rleList' must be a RleList object")
rangesList <- try(IRangesList(rangesList), silent = TRUE)
stop("'rangesList' must be a RangesList object")
views <- Map(Views, rleList, rangesList)
stop("cannot specify 'rleList' or 'rangesList' when specifying '...'")
if (length(views) == 1 && is.list(views[[1L]]))
stop("all elements in '...' must be RleViews objects")

"cannot compute numeric summary over a non-numeric Rle"

.summaryRleViewsList <- function(x, FUN, na.rm = FALSE, outputListType = NULL)
stop("cannot compute numeric summary over a non-numeric Rle")
newList(outputListType, listData, metadata = metadata(x), mcols = mcols(x))
.summaryRleViewsList(x, FUN = viewMins, na.rm = na.rm))
.summaryRleViewsList(x, FUN = viewMaxs, na.rm = na.rm))
.summaryRleViewsList(x, FUN = viewSums, na.rm = na.rm))
.summaryRleViewsList(x, FUN = viewMeans, na.rm = na.rm,
.summaryRleViewsList(x, FUN = viewWhichMins, na.rm = na.rm,
.summaryRleViewsList(x, FUN = viewWhichMaxs, na.rm = na.rm,
.summaryRleViewsList(x, FUN = viewRangeMaxs, na.rm = na.rm,
.summaryRleViewsList(x, FUN = viewRangeMins, na.rm = na.rm,

### The "runsum", "runwtsum", and "runq" generics.

function(x, k, endrule = c("drop", "constant"), ...)
function(x, k, wt, endrule = c("drop", "constant"), ...)
function(x, k, i, endrule = c("drop", "constant"), ...)

### Utility functions for reducing redundant testing of object validity.
### 'signatures' must be a list of character vectors. To use when many methods

setValidity2 <- function(Class, valid.func, where=topenv(parent.frame()))
whoami <- paste("validity method for", Class, "object")
cat("[debugValidity] Entering ", whoami, "\n", sep="")
on.exit(cat("[debugValidity] Leaving ", whoami, "\n", sep=""))
if (isTRUE(problems) || length(problems) == 0L)
if (!is.null(problems)) stop(paste(problems, collapse="\n  "))
setMethods <- function(f, signatures=list(), definition,
setMethod(f, signature=signature, definition, where=where, ...)