R/GenomicRegionsCreateRegionsIds.R

##
## method GenomicRegionsCreateRegionsIds to create values for ids slot
##

##
## GenomicRegions - GenomicRegionsCreateRegionsIds
##

setMethod("GenomicRegionsCreateRegionsIds", "GenomicRegions", function(.Object, chromosomePrefix="chr", chr2span.sep=":", span.sep="-") {
chr<-slot(.Object, "chr")
start<-slot(.Object, "start")
end<-slot(.Object, "end")

ids<-paste(rep(chromosomePrefix, times=length(chr)), chr, rep(chr2span.sep, times=length(chr)), start, rep(span.sep, times=length(chr)), end)
.Object@ids <- as.character(ids)

return(.Object)

})

Try the PREDA package in your browser

Any scripts or data that you put into this service are public.

PREDA documentation built on May 6, 2019, 2:07 a.m.