R/sortGR.R

In InPAS: InPAS: a bioconductor package for the identification of novel alternative PolyAdenylation Sites (PAS) using RNA-seq data

Defines functions sortGR

Documented in sortGR

sortGR <- function(.ele){
    str <- as.character(strand(.ele))[1] == "+"
    if(str){ ## sort the element by position
        .ele <- .ele[order(start(.ele))]
    }else{
        .ele <- .ele[order(-end(.ele))]
    }
    .ele
}

Try the InPAS package in your browser