R/addSeqlengths.R

Defines functions addSeqlengths

addSeqlengths = function( gr, src ) {
 stopifnot(inherits(src, "Seqinfo"))
 sl = seqlengths(src)
 sl = sl[ names(seqlengths(gr)) ]  # seqlengths(gr) will be named even if NA
 seqlengths(gr) = sl    # should probably use seqinfo(gr)
 gr
}
Bioconductor-mirror/gwascat documentation built on June 23, 2017, 5:22 p.m.