1  | makeTravisCoordsFromGRangesList(comp, noBins)
 | 
comp | 
|
noBins | 
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21  | ##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.
## The function is currently defined as
function (comp, noBins) 
{
    require("GenomicFeatures")
    tx_length <- as.numeric(sum(width(comp)))
    checkpoints_interval <- (tx_length - 1)/(noBins - 1)
    tx_name <- names(comp)
    granges <- unlist(comp)
    tx <- granges[tx_name]
    strand <- as.character(as.data.frame(strand(tx))[[1]])
    chr <- as.character(as.data.frame(seqnames(tx))[[1]])
    t <- lapply(X = 1:noBins, FUN = .makeTravisCoordsForSingleIndex, 
        comp = comp, noBins = noBins, checkpoints_interval = checkpoints_interval, 
        strand = strand, chr = chr, tx_name = tx_name)
    TravisCoords <- .combineListOfGRanges(t)
    return(TravisCoords)
  }
 | 
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.